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ABSTRACT 


This  report  is  •  user's  aanual  for  e  set 
of  progress  used  to  calculate  Marine 
Corps  retention  goals  for  individual 
coasands ,  given  overall  Marine  Corps 
retention  goals .  The  progress  allow 
adjustsenta  to  differentiate  between 
usual  and  early  reenlistsents  and  to 
account  for  differences  in  the  situa¬ 
tions  of  individual  coasands .  Current 
goals  consider  coasands*  occupational 
field  coapositlons;  progress  are  also 
provided  for  the  case  in  which  occupa¬ 
tional  fields  are  not  considered. 
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INTRODUCTION  AND  BACKGROUND 

In  FY  1981,  the  Marine  Corps  adopted  numerical  retention  goals  for 
subordinate  commands.  These  goals  are  calculated  [1]  from  numerical 
goals  for  occupational  fields  (OFs).  Each  occupational  field  goal  Is 
divided  among  commands  according  to  the  separations  scheduled  In  each 
command  for  that  field  and  retention  category.  A  command's  goals  are 
the  sums  of  the  command's  fair  shares  of  the  occupational  field  goals. 
For  this  purpose  a  command  is  defined  by  the  monitored  command  codes 
(MCCs)  and  reporting  unit  codes  (RUCs)  for  which  it  receives  credit  for 
retentions . 

Note  that  the  input  occupational  field  goals  are  goals  for 
retention  of  those  now  in  the  designated  fields.  These  goals  count 
lateral  moves  out  of  the  field,  but  not  moves  into  the  field. 

This  manual  contains  instructions  and  programs  for  calculating 
retention  goals.  The  programs  take  an  extract  from  the  Manpower 
Management  System  (MMS)  tapes  and  produce  numerical  goals  for  each 
command  in  each  of  three  retention  categories  (first-term,  intermediate, 
and  career). 

DISCUSSION 

General 

There  are  two  main  programs:  one  to  construct  separation  data 
matrixes  and  one  to  calculate  the  goals  from  the  separation  matrixes. 

The  first  program  ("SETUP")  takes  about  7  CPU  minutes  on  an  IBM  370 
class  computer;  it  lists  the  command  definitions  (MCCs  and  RUCs)  and 
gives  the  MCC-RUC  combinations  found  in  MMS,  but  not  included  in  the 
command  definitions.  "SETUP”  assigns  these  combinations  to  a 
miscellaneous  command  category  ("MISC2");  if  the  combinations  are  to  be 
allocated  to  commands,  "SETUP"  must  be  rerun. 

The  second  program  ("GOAL”)  takes  less  than  10  CPU  seconds.  "GOAL" 
accepts  weights  for  the  2  fiscal  years'  separations  data  (which  allows 
for  emphasizing  current-year  reenlistments  over  early  reenlistments). 
"GOAL”  allows  for  adjustment  of  command  goals  by  multiplying  the 
separations  for  individual  commands,  particular  years,  and  specific 
retention  categories  by  factors.  In  this  way,  goals  can  be  adjusted  to 
differences  in  commands'  situations. 

SETUP 

The  program  listing  for  "SETUP"  is  given  in  appendix  B.  The  input 
consists  of  four  card  files  and  one  tape: 

•  "MCC"  -  a  list  of  command  definitions  in  terms  of  MCCs  and 
MCC-RUC  combinations 


•  "IFIELD"  -  an  ordered  list  of  occupational  fields 

•  "NAMES"  -  an  ordered  list  of  command  names 

•  "CHOICE”  -  which  selects  between  listing  the  input  and 
listing  plus  constructing  the  separation  data  matrixes; 
specifies  the  goal  fiscal  year  starting  date;  and  gives 
the  boundary  numbers  of  years  for  the  years-of-service 
categories 

•  A  Manpower  Management  System  extract  tape. 

If  the  extracts  contain  any  MCCs  or  MCC-RUC  combinations  not 
included  in  the  command  definitions,  these  are  identified  by  "SETUP"  and 
their  frequencies  are  given.  They  are  aggregated  in  the  command 
category  "MISC2". 

"SETUP"  lists  the  occupational  fields  in  the  order  input  and  counts 
the  number  of  records  read  and  the  number  with  blank  occupational 
fields.  Records  with  invalid  contract  expiration  dates  are  counted  as 
bad  records. 

"SETUP"  creates  the  following  files: 

•  Files  11,  12,  13,  21,  22,  and  23,  which  contain  the 
separation  frequencies  by  fiscal  year  and  retention 
category 

•  File  45,  which  gives  the  number  of  commands,  including,  if 
required,  "MISC2" 

•  File  47,  which  gives  the  number  of  occupational  fields. 

GOAL 

The  program  "GOAL"  is  given  in  appendix  C.  "GOAL"  takes  input  from 
disk  (partly  created  by  "SETUP")  and  from  cards.  The  disk  input  is: 

•  Separation  data  ("FY11,"  "FY12,"  "FY13,"  "FY21,"  ”FY22," 
"FY23,"),  by  year  (1,  2)  and  retention  category  (1,  2,  3) 

•  Names  of  commands  ("NAMES"),  in  the  order  of  the 
separation  matrix  rows 

•  Occupational  fields  ("IFIELD"),  in  order  of  the  separation 
matrix  columns 

•  Number  of  separate  commands  ("M"),  which  is  the  number  of 
rows  in  each  matrix 
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•  Number  of  fields  (“N"),  which  is  the  number  of  columns* 

The  cards  entered  directly  by  the  user  as  the  card  file  ''INPUT" 

are: 

•  The  weight  factors  (''W'*)  for  the  first  year's  separation 
data;  the  factors  for  the  second  year  are  1-W 

•  The  amount  of  output  detail  wanted  (two  choices) 

•  Adjustments  desired,  by  command,  fiscal  year,  and 
retention  category. 

The  other  card  file  input  ("OFGOAL")  gives  the  overall  Marine  Corps 
retention  goals  by  occupational  field  and  retention  category.  The 
fields  must  be  the  same  as,  and  in  the  same  order  as,  the  fields  listed 
in  the  output  of  "SETUP." 

The  optional  output  of  "GOAL"  is: 

•  The  weighted  sums  of  2  years'  separations,  by  command, 
field,  and  retention  category 

•  The  fraction  of  each  occupational  field  goal  assigned  to 
each  command 

•  The  occupational  field  goals  for  each  command. 

This  optional  output  is  useful  mainly  for  checking  programs. 

The  nonoptional  output  is: 

•  The  weighted  sums  of  2  years'  separations,  by  command  and 
retention  category 

•  The  command  retention  goals 

•  The  overall  occupational  field  goals 

•  Percentages,  by  field  and  retention  category,  that  can  be 
used  by  commands  to  divide  command  goals  among  subcommands 

•  A  warning  when  the  Marine  Corps  goal  for  a  field  exceeds 
the  scheduled  separations  in  that  field. 

If  an  MCC-RUC  combination  is  to  be  divided  among  commands,  rather 
than  assigned  to  a  single  command,  it  must  be  treated  as  a  separate 
command  in  the  calculations.  The  resulting  goals  can  then  be  divided 
manually  as  desired. 
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Appendix  A  describes  the  MMS  extract  tape.  Appendix  B  describes 
the  program  for  aggregating  the  extract  data.  Appendix  C  describes  the 
program  for  the  goal  calculations.  Appendix  D  describes  the  input 
files.  Appendix  E  lists  and  identifies  the  program  variables. 

Appendix  F  is  a  checklist  for  running  the  programs.  Appendix  G 
describes  the  program  decks. 

Appendix  H  contains  programs  and  supplementary  Instructions  for 
calculating  goals  without  distinguishing  separations  by  occupational 
field. 
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APPENDIX  A 


THE  MMS  EXTRACT  TAPE 


The  data  for  the  calculatlona  are  from  Manpower  Management  System 
(MMS)  tapes.  The  most  recent  tapes  are  preferred.  The  data  consist  of 
extracts  from  the  records  of  persons  scheduled  to  separate  during  the 
next  2  fiscal  years  (FY  1982  and  FY  1983  for  FY  1982  goals). 
Specifically,  the  records  extracted  are  of  those  with  expiration  of 
current  contract  dates  (ECCL)  in  either  of  the  2  years,  when  the  person 
has  both  a  chargeable  strength  code  (0  through  7)  and  a  duty  status  code 
of  1  (full  duty).  Count  only  enlisted  persons.  When  the  MCC  is  275 
(Ft.  Leavenworth),  count  only  RUC  53570. 

Table  A-l  lists  the  items  to  be  extracted  and  gives  the  formats. 

The  MOS  is  Included  to  provide  flexibility  in  redefining  occupational 
fields.  This  would  have  been  needed  for  FY  1981  goals  when  a  split  of 
OF  66  into  OF  63  and  OF  64  left  entries  for  all  three  fields  in  MMS  at 
the  time  of  the  goal  calculations. 


TABLE  A-l 

MMS  EXTRACT  ITEMS  AND  THEIR  FORMATS 


Item 

Format 

Parent  Monitored  Command  Code  (MCC) 

A3 

Reporting  Unit  Code  (RUC) 

15 

Fleet  Assistance  Program  MCC  (FAP-MCC) 

A3 

Active  Duty  Base  Date  (ADBD) 

312 

Expiration  Current  Contract  Date  (ECCD) 

312 

Military  Occupational  Specialty  (MOS) 

14 

Occupational  Field  (OF) 

12 

Note:  Enlisted  only.  ECCDs  in  the  next 

2  fiscal  years  only 

Chargeable  strength  code  (0  through  7)  and  a  duty  status  code 
of  1  (full  duty).  For  MCC  275  (Ft.  Leavenworth),  count  RUC 
53570  (nonprisoners)  only. 
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APPENDIX  B 


THE  PROGRAM  "SETUP"* 


"SETUP"  is  the  program  that  takes  the  MMS  extract  data  and 
aggregates  and  organizes  it  into  input  for  "GOAL,"  the  program  that 
calculates  the  goals  .  "SETUP"  can  be  run  without  using  the  extract 
data;  this  mode  allows  checking  the  input  data  for  occupational  fields 
and  command  definitions. 

Table  B-l  is  a  flowchart  for  "SETUP."  Table  B-2  list3  the 
program.  Note  that  the  retention  categories  are  defined  in  the  input 
card  file  "CHOICE." 

To  run  “SETUP,"  first  enter  on  disk  the  card  files  "MCC,"  "1FIELD," 
and  "NAMES"  (catalog  them) .  Put  the  resulting  file  names  in  the  "SETUP" 
run  deck .  Set  the  card  file  "CHOICE”  to  print  the  occupational  fields 
and  command  definitions.  When  these  are  satisfactory,  catalog  the  MMS 
extract  tape  and  set  "CHOICE”  to  calculate  the  separations  matrixes .  If 
new  MCC-RUC  combinations  now  appear,  change  "MCC"  (and  perhaps  "NAMES") 
and  rerun  "SETUP." 


Ihe  program  "SETUP”  was  written  by  Ann  R.  Truss 


TABLE  B-1 
FLOWCHART  FOR  ' 
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TABLE  B-2 


PROGRAM  LISTING  FOR  "SETUP" 


THIS  PROGRAM  CALCULATES  b  MATRIXES  OF  OCCUPATION  FIELD  BY 
COMMAND  NAME.  EACH  MATRIX  REPRESENTS  FISCAL  YEAR  CONTRACT 
ENDS  ( CURRENT  OR  FOLLOWING  YEAR)  AND  A  YEARS-OF-8ERVICE  CATECORY. 

FY1I-FIRST  FISCAL  YEAR  AND  YEARS  ENLISTED  LE  5 

FY12-FIRST  FISCAL  YEAR  AND  YEARS  ENLISTED  GT  5  AND  LE  10 

FY13-FIRST  FISCAL  YEAR  AND  YEARS  EHLISTED  GT  10 

FY21-SEC0ND  FISCAL  YEAR  AND  YEARS  ENLISTED  LE  5 

FY22-SEC0ND  FISCAL  YEAR  AND  YEARS  ENLISTED  GT  5  AND  LE  10 

FY23-SEC0ND  FISCAL  YEAR  AND  YEARS  ENLISTED  GT  10 


INTEGER  IFY(2»3»100»30)» IOCCUP ( 50  > »  NAMES! 100 1 20) 1 1 COUNT  » 
lNFREO(lOOO) * N0MAT2 (lOOO).COHRUC (100.400) 

INTEGER  LEND.LBEGIN. LENGTH 

INTEGER  KK.X.NOBIO.ICOLSI 100) iNOOCUP 

INTEGER  ADBYRi ADBMON . ADBDAY > ECCYR i ECCMONf ECCDAY 

INTEGER  CODE.NCARD.CHOICE.  TEMP2 

INTEGER  RUC • MOS . NOCCUP • MUMCOM i NMC0M2 » NUMOFS 

INTEGER  YR  »MON»  DAY  >  END 1 »END2 »  START 

INTEGER  FAP. ERROR. Y0S1.Y0S2 

REAL  COMMCC  < 100 . 400 ). TEMPI . NOMATC ( 1 000  > 

REAL  PMCC. FMCC.NMCC 
DATA  BLANK/'  '/ 

DATA  ZERO/ ' 000' / 

ERROR-O 

FAF»0 

N0BIG=0 

CODSUM-O 

NOOCUP-O 

ZERO  THE  SEPARATIONS  MATRIX 

DO  7  1-1.2 
DO  7  J-1.3 
DO  7  K-1.100 
DO  7  L-l.SO 
IFYU.  J.K.D-0 

7  CONTINUE 

READ  IN  MCC-RUC  COMBINATIONS  THAT  DEFINE  THE  COMMANDS. 
DETERMINE  THE  NUMBER  OF  COMBINATIONS  FOR  EACH  COMMAND. 

DO  b  I-I.100 
ICOLS ( I ) =1 
6  CONTINUE 

8  CONTINUE 

READt 40. 43. END-12)  ICOUNT . TEMP  I . TEMP2 

NUMCOM- ICOUNT 

X-ICOLS(ICOUf’T) 

COMMCC (ICOUNT. X) -TEMPI 
COMRUC  < ICOUNT . X ) -TEMP2 
ICOLS ( ICOUNT >«1+IC0LS( ICOUNT) 

GO  TO  8 
12  CONTINUE 

READ  THE  RUN  MODE  (LIST  OR  LIST  PLUS  CONSTRUCT  MATRIXES). 
THE  GOAL  YEAR  START  DATE.  AND  THE  CUTOFF  YEARS  FOR  THE 
RFVFNTtnN  CATFRORIFS 


B-3 
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REAP  (80*10)  CHOICE 
READ  <80 .666)  YR. MON. PAY 
RE AO  <  BO • 70  >  Y0S1.Y0S2 
YOS1--YOSU340 
Y0S2*Y OS 2*340 
START=YR*360+H0N*30+DAY 
END 1 -ST ART +359 
ENP2-START+719 
5  CONTINUE 

RE  All  AND  PRINT  THE  OCCUPATIONAL  FIELDS 

DO  17  1*1.50 
NUMOFS  1-1 

READ  <25.50. END*19 )  I0CCUP<I) 

17  CONTINUE 
19  CONTINUE 

URITE  <4.480) 

UNITE  <  4. 1 1 ) 

URITE  <4.492)  < IOCCUP < I ) > I *1 .NUHOFS > 

URJTEU.il> 

NHC0H2*NUHC0H 

READ  COMMAND  NAMES  AND  PRINT  COMMAND  DEFINITIONS 

NMC0M2*NUMC0M+1 
DO  18  J* 1 . NMCOM2 

REAP  (24.770)  <NAMES(J. I). 1*1.20) 

18  CONTINUE 

DO  13  J*1 . NUMCOM 
ICOLS(J)*ICOLS(J)-l 
KK-1C0LS ( J ) 

IF  ( ICOLS < J ) • EO . 1 )  GO  TO  14 

URITE (4. 688)  J. < NAMES ( J. I ). 1-1 . 20) . ICOLS ( J) .(( COHHCC ( J. 1 )  . 

1C0MRUC  <J.I)).I»1.KK) 

GO  TO  16 

14  URITE < 4 . 689 )  J. ( NAMES! J. I). 1*1. 20) > ICOLS ( J ) . ( ( COMHCC ( J . I  )  . 

1C0MRUC<  J. I)).I*1.KK) 

16  URITEI6.il) 

13  CONTINUE 
UR ITE(6.11) 

15  CONTINUE 

ZERO  VECTORS  OF  UNMATCHED  MCC-RUC  COMBINATIONS 

DO  77  1-1.1000 
NOMATC  < I ) *0 . 

N0MAT2 ( I ) *0 
77  CONTINUE 

CHOOSE  UHETHER  TO  STOP  OR  TO  CALCULATE  THE  SEPARATIONS  MATRIXES 
IF  (CHOICE. EO.O)  GO  TO  777 

READ  RECORDS  AND  PUT  SEPARATIONS  INTO  MATRIXES 
NCARD-0 

DO  100  N-l. 200000 

RE AD ( 30 . 60 . END-999 )  PMCC . RUC . FMCC . APBYR . ADD MON . ADBDAY » ECCYR . ECCMON 
1 . ECCDAY . MOS .HOCCUP 

SELECT  PARENT  OR  FAP  MCC 

NMCC-PMCC 

IF  ( (FMCC. NE .ZERO) .AND. (FMCr.NE. BLANK)  )  NMCC-FMCC 
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IF  (  (FMCC.NE.2ER0)  .AND.  (FMCC . HE .  BLANK  ) )  FAP*FAP41 
NCARD-NCARD  +  1 

CALCULATE  LENGTH- OF -SERVICE  (RETENTION)  CATECORY 

LEND"(ECCYR*360  4  ECCM0NT30  4  F.CCDAY  > 

LBEGIN=( ADBYR*360  4  ADBM0N130  4  ADBDAY ) 

LENGTH-LEND-LDEGIN 

IF  (LENGTH. LE.Y0S1)  NYRS=1 

IF  (LENGTH. GT.Y0S1. AND. LENGTH. LE.Y0S2)  NYRS-2 
IF  (LENGTH. GT.Y0S2)  NYRS-3 

CALCULATE  FISCAL  YEAR  CATEGORY— NFY 


IF  ((LEND. LT. START). OR. (LEND. GT.END2))  GO  TO  868 
IF  ( LEND.  GE.  ST  ART  .  AND .  LEND  .l.E  .  END  1  >  NFY-1 
IF (LEND. GT .END1 .AND. LEND. LE.END2)  NFY"2 
GO  TO  556 
888  ERR0R-ERRQR41 
GO  TO  100 


IDENTIFY  THE  COHHAND 


556  DO  200  J-l .NUHCOH 
KK«IC0LS( J) 

DO  200  K-l  * KK 
CODE-O 

IF ( (RUC.EO. CONRUC (  J .  K  )  )  . OR . COHRUC ( J .  K  ) *EQ.O) C0DE"1 


IF ( ( NMCC .EQ.COMHCC(J.K) >. AND . CODE . EQ . 1 )  JHCC-J 
IF( (NMCC. EQ.COMMCC(J.K) > .AND. CODE. EQ. 1 >  GO  TO  201 
IF  (J  .EQ.  NUHCOH  .AND.  K  .EQ.  ICOLS(J))  GO  TO  500 
200  CONTINUE 


COLLECT  DATA  ON  UNMATCHED  MCC-RUC  COMBINATIONS. 


500  WRITE  (6.510)  NCARD . NMCC . RUC 
DO  550  NO* 1 » 1 000 
JNCC-NUMC0M41 
NMC0M2* JMCC 

IF( (NHCC.EO.NOHATC(NO) > .AND. ( RUC .EQ .N0MAT2 (NO) ) ) 
1NFREQ(N0)*NFREQ(N0>41 

1F((NHCC.EQ.NOHATC(NO)).AND.(RUC.EQ. NOMAT 2 ( NO) ) )  00  TO  201 
IF  ( NOMATC ( NO  >  .NE.  0.)  GO  TO  550 
IF  ( NOMATC ( NO ) . EQ . 0 . )  NFREQ ( NO ) *1 
IF  ( NOMATC  ( NO  )  .EO.  0.)  NOMATC  ( NO  1-NMCC 
IF  ( NOMAT 2 ( NO > . EQ . 0)  NOMAT 2 (NO > "RUC 
IF  (NO  .GT.  NOBIG)  NOBIG-NO 
GO  TO  201 
550  CONTINUE 

IDENTIFY  THE  OCCUPATIONAL  FIELD 

201  DO  250  L-l.NUMOFS 

IF  (NOCCUP  .EQ.  IOCCUP(L) )  KOCCUP-L 
IF  (NOCCUP  .EQ.  IOCCUP ( L ) )  GO  TO  251 
IF  (L  .EO.  NUMOFS)  GO  TO  600 
250  CONTINUE 

COLLECT  DATA  ON  UNMATCHED  OCCUPATIONAL  FIELDS 

600  WRITE  (6.610)  NCARD. NOCCUP 

IF  (NOCCUP  .EQ.  00)  N00CUP-N00CUP41 
GO  TO  100 

INCREMENT  THE  SEPARATIONS  MATRIX 
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251  IFY (NFY.NYRS, JMCC . KOCCUP ) - I F Y ( NF Y , N YRS » JMCC , KOCCUP >  +  1 
100  CONTINUE 
999  CONTINUE 

WRITE  EACH  MATRIX  TO  DISK 

IFY(F,N, J,K) S  F  =  F  I SC AL  YEAR  OF  SEPARATION?  N^YEARS-OF-SERVICE 
CATEGORY?  J •'COMMAND ?  K-'OCCUPATIOHAL  FIELD 

DO  300  J  =  1 »  NMCDM2 

WRITE  (11.1000)  (IFY(l.ltJ»K>»K"l. NUMOFS  > 

WRITE  (12.1000)  <IFY(1 ,2, J.K) ,K*1 , NUMOFS) 

WRITE  (13.1000)  (IFYd. 3.  J.K), K  =  l. NUMOFS) 

WRITE  (21.1000)  (IFY(2.1. J.K). K-l. NUMOFS). 

WRITE  (22.1000)  ( IF  Y  ( 2 . 2 .  J .  K  )  ,  K=*l .  NUMOFS  ) 

WRITE  (23.1000)  (IFY(2.3.J.K).K“1 .NUMOFS  > 

300  CONTINUE 

WRI TE ( 6 , 1 1  ) 

WRITE ( 6 . 535)  FAR 
WRITE( 6,11) 

WRITE(6,701)  ERROR 
WRITE ( 45.50)  NMC0M2 
WRITE ( 47 . SO )  NUMOFS 
URITE( 6, 11  ) 

LIST  MCC-RUC  COMBINATIONS  FOUND  IN  MMS.BUT 
NOT  IN  THE  COMMAND  DEFINITIONS 

IF  (NOBIG. EO.O)  GO  TO  601 
WRITE  (6.700) 

DO  800  1=1, NOBIG 

WRITE (6, 750)  NOM ATC ( I ) . N0MAT2 ( I ) » NFREQ ( I > 

800  CONTINUE 

WR ITEC6.il) 

WRITE (6.802) 

801  CONTINUE 
WRITE ( 6 , 1 1 ) 

WRITE  (6.900)  NOOCUP , NCARD 

10  FORMAT  (ID 

11  FORMAT (IX) 

40  FORMAT  ( 4X • A3 . IX • IS ) 

45  FORMAT  (13. IX. A3, IX, IS) 

SO  FORMAT (12) 

60  FORMAT (A3, IS, A3, 312, 312, 14, 12) 

70  FORMAT  (213) 

310  FORMAT  (IX. 'IN  RECORD  NUMBER  ',110.'  THERE  IS  NO  MATCH', 

1'  FOR  MCC-RUC  COMBINATION  '.A3, '-'.15) 

555  FORMAT< IX, 18, '  RECORDS  USED  THE  FAP  MCC.') 

610  FORMAT  (IX. 'IN  RECORD  NUMBER  '.ItO,'  THERE  IS  NO  MATCH', 

1'  FOR  OCCUPATION  '.  12) 

666  FORMAT (312) 

680  FORMAT  ( ' 1 ' , 1 OX , ' THE  ROW  (COMMAND)  AND  COI UMN  (OCCUPATION 

1 'FIELD)  DEFINITIONS  FOR  THE  MATRIX  OUTPUT ',/»'+', 10X » ' _ '. 

2 '  _ _ _ '  . 

3' . . IX.  'THE  OCCUPATION  FIELDS  ARE  LISTED', 

4'  BY  COLUMNS  IN  THE  OUTPUT  MATRIX',/,'  IN  THE  FOLLOWING  ORDERS') 

688  FORMAT! IX, 'COMMAND  '.I3.2X.20Al,'  HAS  ',13,'  MCC-RUC  COMBINATIONS: 
1 ' , 4X,3(A3. '-' ,15. IX) »100(/.58X,4(A3. '-' ,15, IX)  )) 

689  FORMATdX, 'COMMAND  ' , 1 3 , 2X , 20 A 1  ,  '  HAS  ’,13,'  MCC-RUC  COMBINATIONS 
i',4X.3(A3. '-'  . 15. IX) , 100(/.58X,4(A3» , I5»1X)>  > 

692  FORMATdX. 5013) 

700  FORMATUX, 'MCC-RUC  COMBINATIONS  THAT  ARE  NOT  IN  COMMAND  DEFINITION 
1  LISTS ' ,/,/.10X, 'MCC' »3X, 'RUC' »7X, 'FREO' »/> 

701  FORMATdX.  15.  '  BAD  RECORDS  WERE  FOUND.') 

750  FORMAT! 10X.A3.2X.I5.4X, 15) 

770  FORMAT  (20A1) 
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802  FORMAT ( IX »  'COMBINATION  (  S  )  ABOVE  IS<ARE)  INCLUDED  IH 
12"  '  ) 

?00  F0RMAT<///,1X» 'THE  NUMBER  OF  BLANK  OCCUPATIONS  IS" 
1/  .  / » IS » '  RECORDS  MERE  READ' /»/•/> 

1000  FORMAT  <50H> 

777  CONTINUE 
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THE  PROGRAM  "GOAL" 


“GOAL"  is  the  program  that  calculates  the  command  retention  goals, 
given  the  command  scheduled  separations  and  the  overall  Marine  Corps 
goals  for  occupational  fields  and  retention  categories.  Table  C-I  is  a 
flowchart  for  the  main  program;  tables  C-2  and  C-3  are  flowcharts  for 
subroutines  "ADD"  and  "GOAL,"  to  be  described  below.  Table  C-4  lists 
the  program. 

There  are  six  subroutines:  "ADD,"  “ROWS,"  "ADJUST,”  "GOALS," 
"LARG,"  and  "PCI."  Their  functions  are  summarized  next: 

"ADD"  -  Produces  a  weighted  sum  of  the  2  years' 

separations  matrixes  for  each  retention  category 

"ROWS"  -  Locates  the  row  in  the  separations  matrix  that 
has  the  data  for  a  named  command 

"ADJUST"  -  Multiplies  a  specified  row  of  a  separation 
matrix  by  a  given  factor 

"GOALS"  -  Calculates  the  command  goals 

"LARG"  -  Locates  the  N  largest  goals  when  the  Marine 
Corps  goal  and  the  sum  of  the  command  goals 
differ  by  a  nonzero  amount  of  absolute  value  N 

"PCT"  -  Calculates  the  occupational  field  goals  as  a 

percentage  of  the  occupational  field  scheduled 
separations  by  retention  category  . 

To  run  "GOAL,"  you  must  have  previously  run  "SETUP"  and  created  the 
data  card  files  "INPUT"  and  "OftiOAL." 

"INPUT"  needs  weights  for  multiplying  the  separations  for  the  goal 
fiscal  year  (first-year  weights).  The  FY  1981  goals  were  calculated 
with  a  first-year  weight  of  0.65,  because  in  the  previous  year  about 
65  percent  of  the  overall  goals  were  met  from  the  then-current  fiscal 
year  separations.  The  programs  allow  for  using  a  different  weight  for 
each  retention  category.  Enter  three  weights,  whether  they  differ  or 
not . 

If  a  command  goal  is  to  be  adjusted,  the  command  name  is  needed 
exactly  as  given  in  the  output  of  "SETUP"  or  in  the  file  "NAMES.” 


TABLE  C-1 

FLOWCHART:  MAIN  ROUTINE  ("GOAL") 


READ.  WEIGHTS;  OCCUPATIONAL 
FIELD  GOALS;  SEPARATIONS; 
NUMBER  OF  OCCUPATIONAL 
FIELDS.  NUMBER  OF  COMMANDS; 
COMMAND  NAMES  I 


SET  PRINTOUT 
(FULL  OR  PARTIAL) 


S  ADJUST  \ 
SEPARATION 
s.  DATA  / 


INSERT:  YEAR;  COMMAND; 
CATEGORY,  FACTOR 


ADJUST 

SEPARATIONS 


SUM  OCCUPATIONAL  FIELD  GOALS 
BY  RETENTION  CATEGORY 


TABLE  C-2 

FLOWCHART:  "GOALS" 


FROM  MAIN  ROUTINE 


C-3 


Adjustments  are  made  by  multiplying  separations  in  the  desired  category 
by  a  factor  less  than  1.  The  file  "INPUT"  identifies  the  command  and 
category  and  gives  a  factor  for  each  fiscal  year. 


TABLE  C-3 

FLOWCHART:  "ADD" 


FROM  MAIN  ROUTINE 
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TABLE  C-4 


PROGRAM  LISTING  FOR  "GOAL” 


THIS  PROGRAM  CALCULATES  RETENTION  GOALS*  GIVEN 
SEPARATION  DATA  FOR  EACH  OF  2  FISCAL  YEARS. 

REAL  PCT1(50).PCT2(50>,PCT3(30>.F1,F2 

INTEGER  FYU  ( 100,50)  ,FY  12 (  100,30) » FY13 < 100 » 30) .FY21 ( 100* 30 >  * 
1FY22< 100*50) *  F Y23< 100*50) 

INTEGER  CAT  « ASK  *  ROW*  TGOAL 

COMMON  NAMES ( 100.20) > ICGOAL( 100) * ICTGOL ( 3 >  > IRESLT ( 100 > 6 )  • 
1IRES(6>  *SEP1( 100,50) *SEP2( 100,50) ,SEP3( 100,50) > IF  I ELD < 30 ) *  I COL . 
21 PAGE. NT. IP,H.N,CS£PS< 100) . OFSEPS (50  *  3) • OFCOAL (50 1 3 > . ICOMH(20> , 
3U(  3 ) 

READ  NUMBERS  OF  COMMANDS  (M)  AND  OCCUPATIONAL  FIELDS  (N) 

RE  AD  MS  *  87  )  M 
READ ( 47*87 )  N 

READ  OVERALL  GOALS  AND  OCCUPATIONAL  FIELDS 
DO  27  J-l.N 

READ  (1*80)(0FG0AL(J»I)*I-1»3) 

READ  (25*86) ( IFIELD(J) > 

27  CONTINUE 

READ  SEPARATIONS  MATRIXES  AND  COMMAND  NAMES 
DO  17  1*1, M 

m 

READ  (13*82* END* 444) 

READ  (21*82. END*444> 

READ  (22. 82. END-444) 

READ  (23*82. END-444) 

READ  (24.84. END-444) 

17  CONTINUE 

READ  HEIGHTS  FOR  THE 

2  CONTINUE 

READ  (8*97)  U 
WRITE  (6.55) 

WRITE( 6 > 57 )  U( 1 ) *U(2 
WRITE  (6*108) 

IF( (W(l .0) .LE.l .0) .AND. (W(2) .LE.1.0) .AND. (W(3) .LE.l .0) >G0  TO  4 
WRITE  (6,56) 

GO  TO  2 

SELECT  FULL  OR  NORMAL  PRINTOUT. 

4  WRITE  (6*58) 

READ  (8*64)  IP 

IF  ( ( IP . NE . 0 ) . AND . ( IP. NE . 1 >  >  GO  TO  4 

GO  TO  26 
444  WRITE(6.777> 

GO  TO  93 

CHANGE  SOME  SEPARATIONS  DATA* IF  DESIRED 


(FYIKI.J),  J-l.N) 
(FY12(I,J),J“1*N) 
(FY13(I*J)*J-1*N) 
(FY21  ( I  *  J)  *  J-*l  *N) 
(FY22(I.J>. J-l.N) 
(FY23(I,J)*J*:l*N) 

( NAMES ( I*J)*J-1*20) 


!  FIRST  FISCAL  YEAR 


! ) , W( 3  > 
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26  CONTINUE 

READ  (9,64)  ASK 
IF  (ASK. EG. 1)  DO  TO  89 
GO  TO  50 
89  WRITE  (6.66) 

READ  (3,84)  ICOMM 
CALL  ROWS  (ICOMM, ROW) 

IF  (ROW.LE.M)  GO  TO  30 
WRITE  (6.68)  ICOMM 
GO  TO  93 
30  CONTINUE 

WRITE  (6.70) 

READ  ( E  »  64 )  CAT 

IF  ( (CAT .EG. 1 ) .OR. (CAT.EQ.2) .OR. (CAT .E0.3> )  GO  TO  32 
WRITE  (6.91)  CAT 
GO  TO  93 
32  URITE  (6.74) 

READ  (8,95)  F1.F2 

WRITE (6. 555 ) ( ( NAMES ( ROW, J ) ,J*1 ,20 ) , CAT »F1 »F2> 

555  FORMAT  ( IX , 20 A l , '  CATEGORY  ',11,'  FACTORS!  '  ,F6 . 3.F6. 3 > 
IF  (CAT. HE . 1 )  GO  TO  38 
CALL  ADJUST  < FY 1 1 ,ROW i FI ) 

CALL  ADJUST  ( F Y 2 1 . ROW . F2 ) 

GO  TO  42 

68  IF  (CAT. HE. 2)  GO  TO  40 
CALL  ADJUST  ( F Y 1 2  . ROW . F 1 ) 

CALL  ADJUST  ( F Y22 , ROW , F2 > 

GO  TO  42 

40  IF  (CAT . HE • 3  >  GO  TO  32 
CALL  ADJUST  ( F Y 1 3  .  ROW . F 1 ) 

CALL  ADJUST  ( F Y23  .  ROW , F2 ) 

42  CONTINUE 

URITC(6.660) 

READ! 2,64)  ASK 
50  IF  (ASK.EO.l)  GO  To  26 
C 

C  SUM  RETENTION  CATEGORY  GOALS 

C 

DO  52  K»l,3 
ICTGOL ( K ) *0 
DO  52  1*1, N 

ICTGOL ( K )* ICTGOL (K ) +OFGOAL < I ,K> 

C 

C  CALCULATE  RARAMETERS  FOR  PACING  DETAILED  OUTPUT 

C 

52  CONTINUE 
NT*  1 2 

I PAGE* 1 + ( N/NT ) 

ICOL*  < < ( 1  +  (N/NT) >-IPAGE)*NT>+0. 1 
C 

C  MAKE  WEIGHTED  SUMS  OF  SEPARATIONS  AND  CALCULATE  COALS 

C 

CALL  ADD  (FYll, FY21.SE PI, 1) 

CALL  GOALS  (SEP1  ,1,4) 

CALL  ADD  <FY12»FY22»SEP2»2) 

CALL  GOALS  (SEP2,2,5) 

CALL  ADD  <FY13,FY23,SEP3.3) 

CALL  GOALS  (SEP3.3.6) 

C 

C  PRINT  SUMMARY  SEPARATIONS  DATA 


WRITE 

( 6 1 

>108) 

WRITE 

(  6 1 

-104) 

WRITE 

( 6  i 

-92) 

WRITE 

(  6  i 

.94) 

WRTTF 

(4. 

,94) 
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WRITE  (  6. 98)  (  <  (  NAMES  ( I .  J)  »  J*1 .20) ,  ( IRESLT  <  1 1  J)  t  J--J  .3)  >.I-1,M) 
WRITE  (6.100) 

WRITE  (6.102)  (IRES(I). 1-1.3) 

PRINT  SUMMARY  GOALS  DATA 

WRITE  (6.108) 

WRITE  (6.88) 

WRITE  (6.92) 

WRITE  (6.94) 

WRITE  (6.96) 

WRITE  (6.98)  (  (  (NAMES!  I .  J)  .  J«1 .20).  (IRESLTd.  J)  ,  J«4»6>  .Id  .M)  ) 
WRITE  (6.100) 

WRITE  (6.102)  (IRES(I).I"4.6) 

TG0AL*0 
DO  22  1*1.3 
TG0AL-TG0AL41CTG0L  ( I > 

22  CONTINUE 

WRITE  (6.108) 

WRITE  (6.222)  TGOAL 
WRITE  (6.108) 

PRINT  OVERALL  OCCUPATIONAL  FIELD  COALS  (INPUT) 

URITE  (6.108) 

WRITE  (6.111) 

WRITE  (6.113) 

WRITE  (6.114) 

WRITE  (6.116) 

WRITE  (6.118) 

WRITE  (6.121)  (1FIELD(!).( OF GOAL (I.J).J»1.3>»I*1*N) 

WRITE  (6.122) 

WRITE  (6.123)  ( ICTGOL(K) . K-l .3) 

CALL  PCT  (FY11.FY21.PCT1.1) 

CALL  PCT  (FY12.FY22.PCT2.2) 

CALL  PCT  (FY13.FY23.PCT3.3) 

PRINT  PERCENTAGES  FOR  DIVIDING  COMMAND  GOALS 

WRITE  (6.108) 

URITE  (6.110) 

WRITE  (6.112) 

WRITE  (6.114) 

URITE  (6.116) 

WRITE  (6.118) 

URITE  (6.120)  ((IFIELD(I). PCT1 (I)»PCT2(I)« PCT3 (I))»Ir-l.N) 

WRITE (6.108) 

WRITE( 6 . 108 ) 

DO  99  J~1  »N 

IF  (PCTK  J)  .LE.  100.0)  GO  TO  99 
WRITE(6. 108) 

URITE(6.999)  IFIELD(J) 

999  FORMATdX, 'WARNINGS  FIRST-TERM  GOAL  FOR  FIELD'. 14.'  IS  OVER  100  PE 
•RCENT' ./.lOX.'OF  THE  SCHEDULED  SEPARATIONS  IN  MMS.') 

99  CONTINUE 
DO  33  J-l.N 

IF  (PCT2(J).LE. 100.0)  GO  TO  33 
WRITE(6» 108) 

WRITE( 6. 333 )  IFIELD(J) 

333  FORMATdX. 'WARNINGS  INTERMEDIATE  GOAL  FOR  FIELD'. 14.'  IS  OVER  100 
•PERCENT ' . 1  OX . ' OF  THE  SCHEDULED  SEPARATIONS  IN  MMS . ' > 

33  CONTINUE 
DO  35  J*1.N 

IF  (PCT3( J) .LE . 100.0)  GO  TO  35 
URITE(6. 108) 

WRITE! 6 . 355 )  IFIELD(J) 


u  u  u  u  u  u  u 
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355  FORMAT  (1X»  '  W ARM !  NG !  CAREER  GOAL  FOR  FIELD', 14.'  IS  OVER  100  PERCEN 
*T'./»10X.'0F  THE  SCHEDULED  SEPARATIONS  IN  MHS .  '  ) 

35  CONTINUE 
93  STOP 


55  FORMAT  (IX. 'WEIGHT  FACTORS  FOR  THE  FIRST  FISCAL  YEAR  ARE ! ' > 

57  F0RMAT(31X>F5.2» '  ( FIRST-TERM >'./. 31 X .FS . 2 . '  < INTERMEDIATE >'./» 31X 
1 »F5 . 2 » '  (CAREER)') 

56  FORMAT  ( IX . ' WARNING  5  WE 1GHTS  FOR  THE  2  YEARS  SHOULD  ADD  TO  l.'» 

58  FORMAT  (IX. 'ENTER  "0"  OR  "1"  FOR  NORMAL  OR  FULL  OUTPUT  .RESPECT 
1IVELY.  '  ) 

660  FORMAT  (IX. 'DO  YOU  WISH  TO  ADJUST  ANY  MORE  SEPARATIONS?') 

64  FORMAT  (ID 

66  FORMAT  (IX. 'NAME  THE  COMMAND  FOR  ADJUSTMENT') 

68  FORMAT( IX. 'WARNING; INSERT  THE  EXACT  COMMAND  NAME.  YOU  USED  '»20A1> 
70  FOUMAT  (IX. 'NAME  A  RETENTION  CATEGORY  FOR  ADJUSTMENT ( 1ST  TERKM.IN 
ITER. ^2. CAREER-3)  '  ) 

74  FORMAT  (IX. 'INSERT  A  MULTIPLICATIVE  FACTOR  FOR  EACH  FISCAL  YEAR.') 
80  FORMAT  (3F5.0) 

82  FORMAT  (5014) 

84  FORMAT  (20A1) 

86  FORMAT  (12) 

87  FORMAT  (12) 

88  FORMAT  (35X, 'GOALS' ./.35X. ' - ') 

9i  FORMAT  (IX. ' WARN  I NG : CATEGORY  MUST  BE  1.  2.  OR  3.  YOU  USED  'til) 


92  FORMAT  (26X. 'FIRST  INTER-') 

94  FORMAT  ( 1 X COMMANDS  TERM  MEDIATE  CAREER') 

95  FORMAT  (2F6.3) 

96  FORMAT  (IX.  ' -  -  -  - ') 

98  FORMAT  ( 1 X , 20 A 1 . 19 , 1 1 0 . 1 9 ) 

100  FORMAT  (IX.  ' - '  ) 


102  FORMAT  (3X. 'TOTALS  '.19. 110. 19) 

104  F0RMAT(30X. 'WEIGHTED  SUM  OF './. 32X .' SEPARATIONS' ./. 32X. ' 


*-'  ) 

108  FORMAT  (IX) 

110  FORMAT  (20X. 'PERCENTAGES' ) 

111  FORMAT  ( 19X. 'OVERALL  GOALS') 

112  FORMAT  (IX. ' OCCUR A-  - ') 

113  FORMAT  (lX.'OCCUPA-  - ') 

114  FORMAT  (lX.'TIONAL  FIRST  INTER-  ') 

116  FORMAT  (IX. 'FIELDS  TERM  MEDIATE  CAREER') 

118  FORMAT  (IX.  ' -  -  -  - ' ) 

120  FORMAT  ( IX . 1 4 . 3X , 3F1 0 . 1 ) 

121  FORMAT  (1X.I4.3X.3F10.0) 

122  FORMAT  (IX.' - '  > 

123  FORMAT  (IX. 'TOTALS' ,3110) 

222  FORMAT  (IX.'  TOTAL  GOAL  IS  '.16) 

97  FORMAT  (3F6.3) 


777  FORMAT  ( IX .' WARNING  I  YOU  RAN  OUT  OF  DATA  TOO  SOON') 

END 

'ADD'  PRODUCES  A  WEIGHTED  SUM  OF  TWO  YEARS'  SEPARATION  DATA 


SUBROUTINE  ADD  (YR1.YR2.SEPPS.K) 

C 

INTEGER  YR 1 ( 1 00 . 50 ) . YR2 < 1 00 . 50 ) 

REAL  SEPPS( 100.50) 

COMMON  NAMES! 100. 20 ) . ICGOAL ( 100 ) » ICTG0L<3> *1RESLT (100.6)  . 

1 IRES ( 6 ) . SEP1 (100.50) »SEP2 ( 100 , 50 ) » SEP3< 100 . 30) . I FIELD < 30 ) . ICOL. 
2IPAGE. NT . I P . M . N.CSEPS ( 1 00 ) . OFSEF'S (50 . 3 > . OFGOAL (50. 3) . ICOMM( 20) , 
311(3) 

C 

DIMFNSION  RES ( 3 ) 
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c 

c 

c 


c 


c 

c 

c 

c 

c 

c 

c 

I 


c 

c 

c 

c 


RES(K)*0. 
t'O  2  1*1  >M 
DO  2  J-l.N 

SEPPS( l . J)*(W(K)*YR1 < 1 . J) >♦( (1-H<K) >*YR2(I . J>> 
RES(K)*RES(K)+SEPPS( I . J) 

2  CONTINUE 

IRES ( K ) *RES  <  K ) +0 . 5 

PRINT  THE  HEADING  FOR  THE  DETAILED  OUTPUT 

IF  (1P.EQ.0)  GO  TO  12 
WRITE  (6.20) 

GO  TO  ( 4  f  6  >  8 ) «  K 
4  WRITE  (6.14) 

GO  TO  10 
6  WRITE  (4.14) 

GO  TO  10 
8  WRITE  (6.18) 

10  WRITE  ( 6  f  20 ) 

WRITE  (6.22) 

12  RETURN 


14  FORMAT  (IX.  'FIRST-TERMERS'  ./.IX.  ' - ') 

16  FORMAT  (IX. 'INTERMEDIATES'  » / » IX. ' - ') 

18  FORMAT  (IX. 'CAREER  MARINES f  IX  .  ' - '> 

20  FORMAT  (IX) 

22  FORMAT  ( IX.  '  SEPARATIONS './.  IX.  ' - '> 

END 


'PCT '  CALCULATES  THE  OCCUPATIONAL  FIELD  GOALS  AS 
PERCENTAGES  OF  THE  SIMPLE  SUMS  OF  TWO  YEARS' 
SEPARATION  DATA 


SUBROUTINE  PCT  ( YR1 » YR2 .PERC . K > 

REAL  PERC ( 50  >  »SEPPS( 100. SO  > 

INTEGER  YR1 (100. 50). YR2( 100.50) 

REAL  FSEPS( 50. 3 ) 

INTEGER  ISEP 

COMMON  NAMES(100.20) > ICGOAL (100) > ICTGOL (3)»IRE5LT(100»6>» 

1 IRES ( 6 ) >  SEP1 ( 100.50) .SEP2( 100.50) .SEP3( 100. SO) . IFIELD(50) . ICOL. 
21 PAGE .NT»IP»M»N.CSEPS(100)»0FSEPS(50.3).0FC0AL(50.3).IC0MM(20)  . 
3W(  3 ) 

DO  2  1*1.  M 
DO  2  J*1.N 

8EPPS(I. J)*YR1(I. J)+YR2(I. J) 

2  CONTINUE 
DO  4  J*1 » N 
FSEPS(J.K)*0 
DO  4  1*1. M 

FSEPS( J. K) *FSEPS (J.K)+SEPPS(I.J) 

4  CONTINUE 
DO  6  J-l.N 

IF  (FSEPS(J.K).EO.O.)  GO  TO  6 
PERC(J)«100*0FG0AL< J.K)/FSEPS( J.K) 

6  CONTINUE 
RETURN 
END 


'GOALS'  CALCULATES  THE  COMMAND  GOALS. GIVEN  THE 
WEIGHTED  SUMS  OF  SEPARATIONS 

SUBROUTINE  GOALS  (SEPPS.K.L) 

COMMON  NAMES (100.20) . ICGOAL ( 100) . ICTGOL ( 3 ) . IRESLT ( 100 . 6) . 

1  IRES  <6 )  »SEP1  (100.50)  .  SEP2<  1 00 . 50  > .  SEP3  ( 1 00 . 50  > .  IF1F.L  D(50 ) .  ICOL  . 
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TABLE  C-4  (Cont'd) 

21 PAGE  .NT.  IP.H.N.CSEPS(  100)  .0FSEFS(30>?)  .  OF GOAL  ( 50 » 3  )  .  I COMM (20)  . 
3U(  3  > 

REAL  CDMGOU 100> .RATIO. RGOAL 
INTEGER  Z.INT.II.LL.LLL.LK.KKK 

DIMENSION  SERE'S  (  1 09 »  50  > »  LOCdOO).  SUM(50>»  SUHH(OO) 

DIMENSION  DASH(24) > DASH 2(10) 

DATA  DASH/24*' - '/ 

DATA  DASH2/12B'  '/ 

DO  2  J-l.N 
SUM ( J  >  *0 . 

SUMM  <  J  >  =0  . 

2  CONTINUE 
Z*0 

CALCULATE  TOTAL  SEPARATIONS  BY  OCCUPATIONAL  FIELD 

DO  4  1*1. M 
CSEPS( I >*0. 

A  CONTINUE 
DO  6  J* 1  *  N 
OF SEES ( J»K)*0. 

DO  6  I  *  1 »  H 

OFSEPS( J.K)*OFSEPS( J,K)+SEPPS(I . J> 

6  CONTINUE 

IF  (IF.EQ.O)  GO  TO  10 

SET  PAGING  AND  PRINT  DETAILED  SEPARATIONS  OUTPUT 
DO  8  1 1  *  1 > I PAGE 

IF  <<ICOL.EO.O>.AND.(II.EQ.IPAGE>>  GO  TO  10 

KK=1+(II-1 >*NT 

KKK-KK+NT-1 

IF  (1I.E0.IPAGE)  KK-l+N-ICOL 
IF  (II.EO.IPAGE)  KKK-N 
LL“  ( 1 4  KKK-KK ) 

LLL-2FLL 
WRITE  (6.36) 

WRITE  ( 6  •  60  >  ((IFlELD(J)i J*KK»  KKK) > 

WRITE  ( 6 • 62 )  ( DASH ( J ) *  J ~ 1 >  LL ) 

DO  11  1*1. M 

WRITE  (6.64)  ( (NAMES  (I*J).J*1.20>. ( SEPPS< I . J) * J»KK  >KKK) ) 

11  CONTINUE 

WRITE  (6.66)  (DASH(J). J-l.LLL) 

URITE  (6.68)  ( (OFSEPS( J.K) . J-KK.KKK) > 

WRITE  (6.34) 

8  CONTINUE 
10  CONTINUE 

CALCULATE  SEPARATIONS  BY  COMMAND 

DO  12  1*1 .M 
DO  13  J-l.N 

CSEPS( I )»CSEPS( I ) +SEPPS( I . J) 

13  CONTINUE 

12  CONTINUE 

DO  14  1*1. M 

IRESLT(I.K)*CSEPS(I)+0.5 

14  CONTINUE 

CONVERT  SEPARATIONS  TO  FRACTIONS  OF  OCCUPATIONAL 
FIELD  SEPARATIONS. 

DO  16  1*1 . M 
DO  17  J*  1 . N 

IF  (OFSEPS( J.K) .EQ.O. )  GO  TO  17 
SEPPS(I.J)-SEPPS(I.J)/OFSEPS(J.K) 
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17  CONTINUE 
16  CONTINUE 


TABLE  C-4  (Coat'd) 


SUN  FRACTIONS  OVER  COMMANDS .  BY  OCCUPATIONAL  FIELD 

DO  18  J*1  «N 
DO  IF  I  *  1 » M 

SUN<  J ) *SUH  <  J ) 4  SEPPS ( I  •  J ) 

19  CONTINUE 
18  CONTINUE 

IF  (IP.EO.O)  GO  TO  22 
WRITE  (6.76) 

SET  PAGING  AND  PRINT  DETAILED  FRACTIONS  OUTPUT 
DO  20  1 1 • 1 . 1  PAGE 

IF  ( ( I COL • EG . 0 ) .AND .(II.EQ.IPAGE))  GO  TO  22 

KK-1+(II-1)*HT 

KKK-KK+NT-1 

IF  (H.EO.IPAGE)  KK-l+N-ICQL 
IF  (It  .EO.IPAGE)  KKK-N 
LL*  ( 1+KKK-KK ) 

LLL«2*LL 
WRITE  (6.S6) 

WRITE  (6.60)  ( (IFIELD(J) . J-KK.KKK) ) 

WRITE  (6.62)  ( DASH ( J  > .  JM  >LL) 

DO  21  I*  1  » M 

WRITE  (6.74)  ( ( NAMES ( I » J ) >  J«1 . 20  > . (SEPPS ( 1 1 J ) . J*KK»KKK)  ) 

21  CONTINUE 

WRITE  (6.66)  (DASH( J) » J»1 ,LLL) 

WRITE  (6.70)  ( (SUH( J) « J*KK»KKK) ) 

WRITE  (6.54) 

20  CONTINUE 

22  CONTINUE 

CONVERT  FRACTIONS  TO  OCCUPATIONAL  FIELD  GOALS. 

DO  24  1*1. M 
DO  25  J*1 .  N 

SEPPS ( I . J ) -SEPPS ( I . J ) SOFGOAL (J . K  > 

25  CONTINUE 
24  CONTINUE 

CALCULATE  SUMS  OF  OCCUPATIONAL  FIELD  GOALS 

DO  26  J-l.N 
DO  27  1*1. H 

SUMM ( J ) -SUMN ( J > +SEPPS ( I . J ) 

27  CONTINUE 

26  CONTINUE 

BET  PAGING  AND  PRINT  COMMAND  OCCUPATIONAL  FIELD  GOALS 

IF  (IP.EO.O)  GO  TO  32 
WRITE  (6.54) 

WRITE  (6.78) 

WRITE  (6.80) 

DO  89  I I »1 . IPAGE 

IF  ((ICOL.EQ.O) .AND. (II. EO.IPAGE))  GO  TO  30 

KK*1+(II-1)«NT 

KKK-KK+NT-1 

IF  (II.EQ.IPAGE)  KK-l+N-ICOL 
IF  (II. EO.IPAGE)  KKK-N 
LL*( 1+KKK-KK  ) 

LLL-2RLL 
WRITE  (6.56) 
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TABLE  C-4  (Cont'd) 

URITE  (6.60)  < < IF1ELIK  J) • J-KK.KKK) > 

URITE  (6.62)  ( DASH 'J  )  . J  - 1 . LL  ) 

DO  15  I  =  1  .  M 

URITE  (6.74)  (  (  NAMES  ( I  .  J)  »J«1 .20)  .  ( SERF'S  ( I  .J)  .J’KK.KKK)  ) 

15  CONTINUE 

URITE  (6.66)  (HASH(J). Jd.LLL) 

URITE  (6.72)  <  (  SUMil  <  J  )  .  J«KK « KKK )  > 

URITE  (6.54) 

89  CONTINUE 
30  CONTINUE 
32  CONTINUE 

CALCULATE  COMMAND  GOALS 

36  RGOAL-O 

DO  34  I  *  1  .  M 
COMGOL ( I )  *0  . 

DO  35  J-l.N 

COMGOL ( I ) *COMGOL ( I ) +SEPPS ( I . J ) 

35  CONTINUE 

ICGOALd  ) -COMGOL (I  )+0.5 
RGOAL-RGOAL+ICGOAL < I > 

34  CONTINUE 

COMPARE  CATEGORY  GOALS  TO  SUMS  OF  COMMAND  GOALS  AND  ADJUST 

RATIO=ICTGOL(K)/RGOAL 
IF  (RATIO. EO. 1 .0)  DO  TO  42 
IF  (Z.EQ.l)  GO  TO  42 
DO  40  1*1.  M 

COMGOL ( I >  * COMGOL (I)6RATI0 
40  CONTINUE 
Z-l 

GO  TO  36 
42  CONTINUE 

INT*ICTG0L(K)-RG0AL 
IF  (INT.EO.O)  GO  TO  48 
SIGN-1 

IF  (INT.LT.O)  SIGN--1 
IF  (INT.LT.O)  INT--INT 

FIND  LARGEST  COMMAND  GOALS  FOR  ADJUSTING  TO  MAKE 

SUM  OF  COMMAND  GOALS  EQUAL  CATEGORY  GOALS 

CALL  LARG  (INT.M.LOC.ICGOAL) 

DO  46  J-l.INT 
DO  44  MM-l.M 
2-LOC ( J ) 

IF  (MM.EO.Z)  ICGOAL(MM>*ICGOAL(MM)+SIGN 
IF  (MM.EO.Z)  GO  TO  46 
44  CONTINUE 
46  CONTINUE 
48  CONTINUE 

PUT  COMMAND  GOALS  IN  OUTPUT  MATRIX 

DO  50  1*1. M 

IRESLT ( I . L )* ICGOAL ( I > 

50  CONTINUE 

PUT  SUM  OF  COMMAND  GOALS  IN  OUTPUT  VECTOR 

IRES (L  >»0 
DO  52  I  *  1 . M 

IRES ( L  > *  IRES ( L  > +  1 RESLT  < I .  L  > 

52  CONTINUE 
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c 

c 


c 

c 

c 

c 

c 


c 

c 

c 

c 


c 

c 

c 


c 

c 

c 

c 
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RETURN 


5*  FORMAT  <1X) 

56  FORMAT  (  / >  61 X  >  '  OCCUPATIONAL  FIELD  '  i /.  61X ,  ' - - ') 

60  FORMAT  ( IX .' COMMAND '. 13X . 1218 > 

62  FORMAT  <1X.' - ' ,18X> 12( A4.4X) > 

64  FORMAT  ( 1 X . 20A1 » IX . 12<F8. 1 > > 

66  FORMAT  (IX.  ' - '  .24A4) 


68  FORMAT  (22X.12F8.1) 

70  FORMAT  (22X.12F8.2) 

72  FORMAT  ( 22X . 1 2FB . 2  ) 

74  FORMAT  <1X.20A1.1X.12F8.2> 

76  FORMAT  (/.  1 X FRACTIONS IX .  ' - ') 

78  FORMAT  (IX. 'OCCUPATIONAL  FIELD  GOALS') 

80  FORMAT  (IX.  ' - - - '  > 

END 


'LARG'  FINDS  THE  LOCATIONS  OF  THE  N  LARCEST 
COMMAND  GOALS.  WHERE  N  IS  THE  ROUNDOFF  DISCREPANCY 

SUBROUTINE  LARG  < N >M. 1H1 . ARRAY ) 

INTEGER  ARRAY ( 106)  >  1HK100).  IH2<100) 

DO  2  1*1  .N 

FIRST  'DO'  LOOPS  FIND  AN  INITIAL  CANDIDATE  FOR  A  VECTOR 
OF  LOCATIONS  OF  THE  N  LARGEST  COMMAND  GOALS 

2  IH1<I>-I 
4  DO  12  J«1»M 
DO  10  I«l. N 
Z*IH1(I> 

IF  (ARRAY  ( Z ) .GT .ARRAY<  J) )  GO  TO  10 
IF  ( ( ARRAY (Z) .EQ.ARRAY(J)) .AND. (Z.NE.J))  GO  TO  10 
IF  (J.EO.M)  GO  TO  8 
DO  6  K-l.N 

IF  ((IH1(K).E0.J).AND.<K.NE.I))  GO  TO  12 
6  CONTINUE 
8  IH1 ( I ) * J 
GO  TO  12 
10  CONTINUE 
12  CONTINUE 

MAKE  A  COPY  OF  THE  INITIAL  CANDIDATE 

DO  14  I«1,N 
IH2 ( I )*IH1 ( I ) 

14  CONTINUE 
DO  22  J*1»M 
DO  20  1*1,  N 
Z-IH2( I) 

CHECK  FOR  INDEXES  THAT  GIVE  LARGER  GOALS,  DUT  THAT 
ARE  NOT  IN  THE  LATEST  CANDIDATE 

IF  (ARRAY ( Z ) .GT . ARRAY <  J>  >  GO  TO  20 
IF  < (ARRAY(Z) .EQ.ARRAY(J) ) .AND. (Z.NE.J) )  GO  TO  20 
IF  (J.EO.M)  GO  TO  18 
DO  16  K*1,N 

IF  ((IH2(K).EQ.J).AND.(K.NE.I>)  GO  TO  22 
16  CONTINUE 
18  IH2(1)*J 
GO  TO  22 
?0  TONTTNIIF 
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22  CONTINUE 

CHECK  WHETHER  LATEST  CANDIDATE  IS  EQUAL  TO  THE 
PREVIOUS  CANDIDATE 

DO  24  I  =  1 » N 

IF  ( IH1 ( I  )  . HE . IH2(  I  )  )  BO  TO  26 
24  CONTINUE 
GO  TO  30 

START  WITH  THE  NEW  CANDIDATE 

26  DO  69  1  =  1.  N 
IH1 < I  ) = IM2( I ) 

69  CONTINUE 

REPEAT  UNTIL  NO  CHANGE  OCCURS 

GO  TO  4 
30  CONTINUE 
RETURN 
END 


'ROUS'  IDENTIFIES  THE  ROU  IN  WHICH  DATA  FOR  A  GIVEN 
COMMAND  ARE  LOCATED 

SUBROUTINE  ROUS  (X.ROU) 

COMMON  N AMES ( 100.20) . ICGOAL (100) > I CT GOL < 3 ) > I RESLT ( 1 00 r 6 )  . 

1 IRES ( 6 ) ,SEP1 < 100.30) .SEP2< 100.30) , SEP3 < 100 » 30 >  » IF I ELD ( 30 ) . I COL . 
2 1  PAGE  .NT  .  IF'.M.N.CSEPSt  100)  .  OFSEF'S  ( 30.3).  OF  GOAL  (30.3)  .  I  COMM  (  20 )  . 
3U  ( 3  > 

INTEGER  X  <  20  >  >  ROU 
ROU-M+1 
DO  4  1  =  1. M 
DO  2  J=1 • 20 

IF  <X(J) . HE.NAMES(I.J) )  GO  TO  4 
IF  <  J . EO . 20 )  ROU= I 
2  CONTINUE 
4  CONTINUE 
RETURN 
END 


'ADJUST'  MULTIPLIES  A  ROU  IN  A  SEPARATIONS  DATA 
MATRIX  BY  A  GIVEN  FACTOR 

SUBROUTINE  ADJUST  <FY IN . X .FACTOR ) 

C 

COMMON  NAMES ( 100.20) . ICGOAL < 100) > I CTGOL ( 3 >  > IRESLT (100.6). 

I  IRES  U)  .SEP  1<  100.50)  .SEP2<  100 . 30  > . SEP3 <  100 . 30) .  IFIELDC30) .  ICOL. 
2IPAGE.NT. IP.M.N.CSEPSdOO) . OFSEPS ( 50 . 3 ) . OFGOAL ( 50. 3 ) .IC0MM(20) . 
3W<  3  > 

INTEGER  X 

INTEGER  FYIN < 100 . 30 ) 

REAL  FACTOR 
DO  2  K-l.N 

FYIN(X.K)«FYIN<X.K)»FACTOR 
2  CONTINUE 
RETURN 
END 

• 
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APPENDIX  D 


FILE  DESCRIPTIONS 


This  appendix  gives  samples  and  formats  for  all  the  card  input 
files.  These  include  the  input  to  "SETUP"  ( ‘MCC,"  "CHOICE,"  "IFIELD, " 
and  "NAMES”)  and  the  card  input  to  "GOAL"  (“OFGPAL"  and  "INPUT").  These 
do  not  include  the  files  created  by  "SETUP”  for  "GOAL"  ("M,”  "N," 

"FY11,"  "FY12,"  "FY13,"  "FY21,"  "FY22,"  and  "FY23"),  or  the  MMS  extract 
tape  input  (for  which,  see  appendix  A). 


TABLE  D-l 


FILE  1 

-  "OFGOAL” 

50/ 

325 

270 

32 

105 

68 

i//e 

3A7 

AAO 

1  0? 

PS 

117 

93 

9  6 

72 

7b 

0 

53 

t  69 

1 A  9 

93 

7 

U 

6 

1 

5 

A 

1  1  I 

51 

62 

103 

S3 

71 

27 

3e 

2  3 

2  E  3 

172 

l  5  A 

92 

A  A 

A5 

1  If 

1/S 

1  54 

5  3  3 

25  2 

2fl2 

AS 

21 

17 

2  1S 

7L 

yO 

1  4  5 

l  A 

55 

224 

132 

16? 

93 

105 

62 

12 

A  A 

AO 

i  7 

21 

23 

21 

25 

13 

51 

12 

27 

51 

12 

1/ 

27 

17 

17 

IAS 

39 

53 

l  6? 

1 A  9 

90 

1  19 

31  3 

315 

225 

65 

5? 

cl 

7  U 

bD 

61 

7  0 

60 

93 

5  b 

35 

62 

SO 

61 

A 

1  9 

li) 

22 

A  7 

47 

AA 

A  6 

?1 

27 

11 

24 

0 

«> 

243 

CONTENTS:  OVERALL  PARIf.F  CO^FS  GCALS  IN  CRDF P  OF  FIELD 
CNOVS*  AS  IN  ERE  25)  AND  RETENTION  CATEGORY 
(CGLLPNSJFJKST-TFRP.  I N  TERMEOI A  TF  #  AND 
CAFEEF.  ). 

FUKMAT:  3F5.0  FO*  EACH  LlNt 

NOTE:  THESE  MUST  it  GOAl  S  FOR  hFTKNTION  OF  PERSONS 
PRESENTLY  IN  THF  INDICATED  FIELD. 


T 


TABLE  D-2 


CONTENTS: 


FORMAT: 


FILE  8  -  "INPUT" 

(Example  With  One  Data  Adjustment) 


0.5 

0 

t 

MCDFC 

2 

0.65 


C 


0.5 


0.65 


0  .6 


FIRST  FISCAL-YEA*  WEIGHTS  8Y  RETENTION  CATEGORY. 
INOFX  TO  SET  OUTPUT  C "0"= NORN AL . "t "= D ETA ILCC >»  INDEX 
TO  SELECT  SEPARATIONS  ADJUSTMENT  C "0"=N0. "t"  = YES  )  . 
COMMAND  NAaF  FOR  ADJUSTMENT.  RETENTION  CATEGORY 
FOR  AO JUSTMENT  C1.2.  OR  3  IN  THE  USUAL  ORDER). 

THE  ADJUSTMENT  FACTORS  FCR  THE  ThO  FISCAL  YEARS 
AND  AN  INDEX  TO  SELECT  FURTHER  ADJUSTMENTS. 

CAROS  3  TO  S  SET  THE  ADJUSTMENTS  FOR  ONF  COMMAND 
AND  ONE  RETENTION  CATEGORY.  ADJUSTMENTS  FCR  OTHER 
COMMANDS  OR  CATEGORIES  ARE  SET  BY  INSERTING 
SIMILAR  4-CARD  SETS  BEFORE  THE  FINAL  CARD  UF  "INPUT" 
3F6.3./.II./.I1./.20AI./.I1./.2F6. 3. /.It 


TABLE  D-3 


FILE  24  -  “NAMES” 


F MFIANT 
F  y FF  A  C 
t ST  HAhOlV 
20  H AHO  I  V 
30  NAKOIV 
4TH  FAFDIV 
1ST  yAtt  B3F 
1ST  MAW 
20  A 
20  yAW 
4TH  PAW 
1ST  Fssn 
20  FSSl. 

30  FSSG 

FCfiC  SAN  0 IEGO 
«C*C  P  AFy IS  ISLAND 
y C  AGCO 

MCI  3  3  A  F  STOW 
yCL5  ALBANY 
H  A  N C 0 M F INCLM 
MCb  CAMLtJ 
MCS  CAMPF.N 
yce  CAyf-UT 
MCCFC 
HATSG-90 
1ST  MCO 
4 TH  PCD 
6 TH  MCO 
eih  M CO 
iTH  P. CD 
1  2TH  MCO 
MCAS  YUMA 
PCAS  EL  TOHO 
MCAS  I W AftUNI 
yCAS  CHFHKY  PT 
MCA'  MANEOHt  BAY 
yCAS  BEAUFORT 
MCAS  NEW  -<IVtP 
yCAS  TUSTIN 
MCAF  FUTfMA 
FSG  BN 

1ST  PADIU  3N 
y  C  T  S  S  A 

MAP  SPTBN 
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TABLE  D-3  (Cont'd) 


LFTCPAC 
Lf TCLANT 
H06 N  HQ* C 

MARDET  FT  LFAVENWORTH 
MS  GRU\ SklCK 

«a  concord 

Ad  fcARLE 

M8  FALL BROOK 

*0  FEW  LOMBOK 

A3  SEAL  8FACH 

M3  FORTH  t  SI 

M3  ALAMtCA 

pa  WASH  DC 

M3  ANNA°OLIS 

M3  CECIL  FIELD 

A?  CHARLESTON 

MB  LtHOUHE 

M3  PORTSMOUTH 

M3  VALLEJO 

MB  WH ID3ET 

MB  YURKTOWN 

M3  8AN30K  WA 

MAO  PT  M A SU 

MATSS  CORPUS  CHRISTI 

MATSG  LAMEHUHST 

MATSG  PATUXANT 

MATSG  f EKSACCL A 

MATSG  MERIDIAN 

Ml  SCI 

J9M 

MI5C2 

CONTENTS:  COMMAND  TITLES 
FORMAT*  20 Al  FOR  EACH  LINE 

NOTE:  THE  LAST  COMMAND  LISTED  MUST  8E  "MISC2* 


TABLE  D-4 


FILE  25  -  "IFIELD" 


1 

2 

3 

4 

e 
i  i 
12 
t  4 
lb 

1  c 
21 
?.  3 

25 

26 

2  fi 

30 

31 

33 

34 
3b 
4»J 

4  L 

43 

44 
46 
5b 
5? 

5  fc 

59 

60 
61 

63 

64 

65 

ee 

70 

72 

73 
99 

CONTENTS*  OCCUPATIONAL  FIFL03  IN  THE  SANE  ORDER  4S 
IN  FIl  E  l  {  T  4  31.  E  CM) 

FOR* 4 T !  12  FOR  £»CH  LINE 
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TABLE  D-5 


FILE  40  -  "MCC" 

(A  Partial  Listing) 


1 

Ill 

00000 

1 

116 

20001 

1 

1 AF 

00000 

i 

ACF 

00000 

1 

1CF 

00000 

i 

icr 

00000 

1 

10L 

00000 

l 

if  e 

00000 

I 

226 

00000 

1 

312 

00000 

1 

313 

00000 

1 

314 

00000 

1 

315 

00000 

1 

316 

00000 

1 

31 7 

00000 

I 

320 

00000 

1 

322 

00000 

i 

526 

00000 

1 

32? 

00000 

1 

326 

00000 

1 

413 

00000 

1 

434 

00000 

1 

43$ 

00000 

l 

444 

00 000 

1 

446 

00000 

1 

452 

000)0 

1 

459 

00000 

l 

4  50 

00000 

l 

466 

00000 

1 

466 

ooooo 

1 

471 

00000 

I 

473 

ooooo 

1 

4  76 

ooooo 

1 

526 

ooooo 

1 

535 

ooooo 

1 

545 

ooooo 

l 

544 

ooooo 

1 

551 

ooooo 

1 

553 

ooooo 

1 

554 

ooooo 

CONTENTS:  ORDINAL  COMMAND  NUMBER  (IN  THE  ORDER  OF 
FILC  24  ("NAMES"*  TABLE  D- 3  >  >  *  MCC*  RUC 
(OR  00000  IF  ALL  RUC*S  IN  THE  HOC  ABE 
INCLUDED). 

FORMAT:  13*  IX  *  A  3*  1  X  *  15  F  Cf  EACH  LINE 


TABLE  D-6 


FILE  80  -  "CHOICE" 


1 

811001 
=5  10 


CONTENTS:  MJN  NOOK  SFLFCTOP  {"()"  =  LIST  INPUT*  "1"= 

LIST  INPUT  AT. 0  CALCULATE:  StPAMTICP  -ATPIXFS)* 

f  I  S  L  A  t  YF  AH  OF  GOALS  TO  •?).  CALCULATE"  CYKAF* 
PUNT  H »  DAY).  CUTOFF  YKAhS  FUP  YEAKS-OF- 
SE^VICE  CATEGORIES. 

FOhmaT:  It  ./*  Hi, /*2I  3 


i 

i 

i 

% 


appendix  e 

VARIABLES  IN  THE  PROGRAMS 


APPENDIX  E 


VARIABLES  IN  THE  PRO (31AM S 

This  appendix  lists  and  defines  the  variables  used  in  "SETUP"  and 
"GOAL." 

"SETUP" 

The  integer  variables  in  "SETUP"  are: 

IFY  -  The  separations  matrix 

IOCCUP  -  The  occupational  fields  (numbers) 

NAMES  -  Command  names 

ICOUNT  -  Command  ordinal  numbers 

N0MAT2  -  List  of  RUCs  associated  with  MCCs  in  NOMATC  (see 
real  variables  below) 

NFREQ  -  Frequencies  of  unmatched  combinations 

COMRUC  -  The  defining  RUCs  (columns)  by  command  (rows) 

NOBIG  -  The  number  of  unmatched  MCC-RUC  combinations 

ICOLS  -  The  numbers  of  MCC-RUC  combinations  in  the 
definitions  of  commands 

ADBYR  -  The  active  duty  base  date  year  (from  MMS) 

ADBMON  -  The  ADBD  month 

ADBDAY  -  The  ADBD  day 

RUC  -  Reporting  unit  code  (from  MMS) 

ECCYR  -  Year  of  expiration  of  current  contract  date  (from 
MMS) 

ECCMON  -  ECCD  month 
ECCDAY  -  ECCD  day 

MOS  -  Military  occupational  specialty  (from  MMS) 

NOCCUP  -  Number  of  occupational  fields 
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NOOCUP 

NCARD 

CHOICE 

YOS1 

YOS2 

NUMCOM 

NMCOM2 

NUMOFS 

TEMP2 

YR 

MON 

DAY 

START 

END1 

END2 

LEND 

LBEGIN 

LENGTH 

NYRS 

NFY 

JMCC 

KOCCUP 


Number  of  records  with  blank  occupational  fields 

Number  of  MMS  records  read  by  "SETUP" 

Index  to  select  input  data  listing  ("0”)  or 
listing  plus  matrix  creation  (“1”) 

Maximum  number  of  years  of  service  for  a  first- 
termer 

Maximum  number  of  years  of  service  for  an 
intermediate  Marine 

Number  of  commands,  not  including  "MISC2" 

Number  of  commands,  including  "MISC2"  if  required 
(  =  "M"  in  "GOAL") 

Number  of  occupational  fields  (*■  ”N”  in  "GOAL”) 
Used  to  read  RUCs  from  command  definition  file 
Goal  fiscal  year 

Starting  month  of  goal  fiscal  year 

Starting  date  of  goal  fiscal  year 

A  number  representing  the  start  of  the  goal  fiscal 
year 

Defines  the  end  of  the  goal  fiscal  year 
Defines  the  end  of  the  second  fiscal  year 
End  of  current  contract 
Start  of  active  service 
Length  of  service  at  "LEND" 

Index  for  length-of-service  category 
Index  for  fiscal  year  of  "LEND” 

Index  for  command  name 
Index  for  occupational  field 
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FA P  -  The  number  of  cases  in  which  the  fleet  assistance 

program  (FAP)  MCC  is  used 

ERROR  -  The  number  of  cases  with  enlistment  contract 

expiration  dates  not  in  the  correct  2-year  period 
(should  be  zero). 

Some  temporary  integer  variables  are  KK,  X,  and  CODE.  The  real 
variables  are: 

NOMATC  -  List  of  MCCs  for  MCC-RUC  combinations  not  in  the 
command  definitions  but  found  in  MMS 

COMMCC  -  The  defining  MCCs  (columns)  by  command  (rows) 

TEMPI  -  Used  to  read  MCCs  from  command  definition  file 

PMCC  -  Parent  monitored  command  code  (from  MMS) 

FMCC  -  Fleet  Assistance  Program  MCC  (from  MMS) 

NMCC  -  MCC  used  for  assignment. 

Data  variables  are  zero  (■  '000')  and  blank  (-  “  " ). 

"GOAL" 

Integer  variables  for  "GOAL"  are: 

FY11  -  Separations  data  matrix  for  fiscal  year  1  and 

retention  category  1;  FY12,  FY13,  FY21,  FY22,  and 
FY23  are  similar 

CAT  -  Index  for  years-of-service  category 

ASK  -  Index  to  select  adjusting  ("1")  or  not  adjusting 
("0")  separations  data  for  an  individual  command 

ROW  -  Number  of  the  row  containing  data  for  a  specific 
command 

NAMES  -  Command  names 

ICOMM  -  Name  of  command  whose  separations  are  to  be 

adjusted 

ICTGOL  -  Total  goals  for  retention  categories 

TGOAL  -  Total  goal  (sum  of  ICTGOL) 
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ICGOAL 


Rounded  commend  goals 


IRESLT  -  Summary  matrix  of  command  separations  and  goals 

IRES  -  Column  sums  of  "IRESLT" 

IFIELD  -  Occupational  fields 

ICOL  -  Number  of  columns  on  a  page  of  detailed  output 

IPAGE  -  Number  of  pages  for  a  category  of  data  in  a 

detailed  output 

T  -  Maximum  number  of  columns  per  page  in  detailed 

printout 

IP  -  Index  to  select  normal  printout  ("O'")  or  a 

detailed  printout  ("1“) 

M  -  Number  of  commands  (including  one  or  two 

miscellaneous  categories) 

N  -  Number  of  occupational  fields. 

The  above  integer  variables  are  used  in  the  main  routine  of 
"GOAL.”  The  integer  variable  ”Z"  is  t  sed  as  a  temporary  variable  in  the 
subroutine  "GOALS." 

The  following  real  variables  are  used  in  the  main  routine: 

PCT1  -  Occupatio  al  field  goals  as  percentages  of 

unweighted  sums  of  separations,  first-term;  PCT2 
and  PCT3  are  similar 

SEPi  -  Weighted  sura  of  separation  matrixes  for  retention 
category  1;  SEP2  and  SEP3  are  similar 

CSEPS  -  Total  weighted  sum  of  separations,  by  command  and 
retention  category 

OFSEPS  -  Total  weighted  sum  of  separations,  by  field  and 
retention  category 

OFGOAL  -  Input  goals,  by  occupational  field  and  retention 
category 

W  -  Weights  for  first  fiscal  year,  by  retention 

category 


E-4 


FI 


Multiplicative  factor  for  adjusting  separations  of 
first  fiscal  year;  F2  is  the  second-year  factor. 


Other  variables  in  the  indicated  subroutines  are: 

RGOAL  -  Sum  of  command  goals  for  a  given  retention 
category  (real,  in  "GOALS") 

RES  -  Nonrounded  sum  of  separations,  by  retention 
category  (real,  in  "ADD") 

SEPPS  -  Unweighted  sum  of  separations  matrixes,  for  a 
retention  category  (real,  in  "PCI") 

SEPPS  -  Weighted  sum  of  separations  matrixes,  for  a 

retention  category;  also  the  command  fractions  of 
field  separations  for  a  retention  category;  also 
the  command  goals,  by  category  and  field  (real, 
all  in  "GOALS") 

FSEPS  -  Unweighted  sum  of  separations,  by  field  and 
retention  category  (real,  in  "PCT") 

COMGOL  -  Unrounded  total  command  goal,  by  retention 
category  (real,  in  "GOALS”) 

LOG  -  Row  numbers  for  the  N  commands  with  the  largest 

goals,  where  N  is  the  rounding  error  (integer,  in 
"GOALS") 

SUM  -  Sum  of  commands'  separations  fractions,  by  field 
(-  1.00),  (real,  in  "GOALS") 

SIMM  -  Sum  of  unrounded  command  goals,  by  field  (»  Marine 
Corps  goal),  (real,  in  "GOALS") 

RATIO  -  Ratio  of  sum  of  rounded  command  goals  to  Marine 
Corps  goal  (real,  in  "GOALS"). 
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APPENDIX  F 


A  CHECKLIST 


This  appendix  is  a  "cookbook"  or  checklist  for  calculating  goals. 
The  general  instructions  are  lettered,  and  the  detailed  instructions  are 
numbered. 


A.  Make  an  MMS  extract  tape. 

Have  a  tape  of  Manpower  Management  System  extracts 
prepared  according  to  the  prescription  of  appendix  A. 

B.  Use  a  short  run  of  "SETUP"  to  list  and  check  the  original 
input  of  occupational  fields  and  command  definitions. 
Correct  the  input  files  of  "SETUP"  if  necessary. 

1.  Catalog  files  "MCC"  (40),  "IFIELD"  (25),  and 
"NAMES"  (24).  Table  G-l  gives  the  program 
deck.  (Use  a  delete  card  only  when  a  file 
already  exists.) 

2.  Run  "SETUP"  with  "0"  on  the  first  card  of 

File  80  ("CHOICE").  Table  D-6  gives  the  format 
for  “CHOICE;”  table  G-2  gives  the  program 
deck.  This  run  will  produce  listings  of  the 
input  occupational  fields  and  command 
definitions.  The  fields  must  agree,  in  order, 
with  those  in  the  overall  Marine  Corps  goals 
(File  1,  "0FG0AL,”  table  D-l).  This  run  can  be 
made  without  an  extract  tape.  In  that  case,  the 
JCL  must  specify  tape  -  0. 

3.  Check  the  definitions  of  commands  in  terms  of 
MCCs  and  RUCs.  Correct  or  update  the 
definitions  by  adding  or  deleting  cards  from 
File  40  ("MCC").  Table  D-5  gives  the  format. 

It  is  very  desirable,  but  not  strictly 
necessary,  to  have  the  MCCs  and  RUCs  in  order. 

If  they  are  not,  the  listings  within  commands 
will  probably  not  be  in  order,  which  would  make 
checking  some  command  definitions  unnecessarily 
tedious  • 

4.  Recatalog  "MCC,"  "IFIELD,"  or  "NAMES,"  if 
necessary. 


Use  a  complete  run  of  "SETUP"  to  check  for 
discrepancies  between  MMS  and  the  input  fields,  MCCs,  and 
RUCs.  If  any  are  found  make  MMS  and  the  input 
consistent . 

Run  "SETUP”  with  ”1“  on  the  first  File  80  card. 

This  will  list  the  input  as  before  and  place  input  files 
for  "GOAL"  on  disk.  An  extract  tape  and  tape 
identification  are  now  required. 

"SETUP"  will  list  any  MCC-RUC  combinations  not 
included  in  the  command  definitions.  These  will  be 
grouped  in  the  command  category  "MISC2."  You  may  wish  to 
redefine  some  commands  to  include  these  combinations,  or 
you  may  wish  to  treat  some  of  the  combinations  as 
separate  commands  to  obtain  separate  goals  to  allocate 
manually  among  various  commands.  If  so,  rerun  "SETUP” 
after  changing  and  recataloging  "MCC"  and  "NAMES."  (To 
add  a  command,  put  its  name  into  "NAMES"  just  before 
"MISC2"  and  add  its  defining  MCCs  and  RUCs  at  the  end  of 
"MCC,"  using  the  next  available  ordinal  command  number.) 

Check  the  output  listing  to  be  certain  that  the 
output  files  (45,  47,  11,  12,  13,  21,  22,  and  23)  have 
been  cataloged. 

When  satisfied  with  "SETUP,"  run  "GOAL." 

1.  Create  the  file  "INPUT"  for  "GOAL”  (table  D-2). 

Usually  select  "NORMAL"  output  (0). 

-  Command  goals  can  be  adjusted  by 
multiplying  separations  by  a  factor 
normally  less  than  1.  The  adjustment  is 
done  separately  for  each  command, 
retention  category,  and  fiscal  year 
affected. 

Each  adjustment  is  done  by  inserting  four 
cards  after  the  second  card  of  "INPUT:" 
"1,"  an  exact  command  name,  a  retention 
category  index  (1,  2,  or  3),  and  two 
adjustment  factors  (one  for  each  fiscal 
year ) . 

2.  Create  the  input  goals  file  "0FG0AL”  (see 
table  D-l). 
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3.  An  MCC-RUC  combination  whose  goals  are  to  be 
shared  must  be  treated  as  a  separate  command  so 
that  its  goals  are  listed  and  can  be  divided 
manually.  These  goals  would  usually  be  divided 
in  proportion  to  the  total  command  separations 
in  each  retention  category,  which  are  given  in 
the  standard  output.  If  these  shared  goals  make 
a  significant  difference  for  any  command,  a  more 
careful  calculation  may  be  desirable.  In  this 
case,  the  MCC's  occupational  field  goals  can  be 
shared  individually.  For  this  a  detailed  output 
is  needed  (run  "GOAL"  with  a  "1"  on  the  first 
card  of  File  8  ("INPUT")). 

4.  Run  "GOAL.”  The  program  deck  is  in  table  G-3. 

If  additional  adjustments  are  desired,  rerun  "GOAL"  with 
the  necessary  changes  to  "INPUT." 
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PROGRAM  DECKS 


APPENDIX  G 


PROGRAM  DECKS 


Table  G-i  Illustrates  a  program  deck  for  cataloging  the  file 
"MCC.”  The  same  format  is  used  to  catalog  files  "IFIELD"  (FT24)  and 
"NAMES”  (FT25). 


TABLE  G-l 

A  DECK  FOR  CATALOGING  FILE  "MCC" 


/•TAP£*0 

//U957DK2  JOB  (601R*NNP A)  »*CATAL0G,»TIRE*(1*  > 

//STE001  EXEC  PGMaIE8GEN£R»REGI0N*t20K 

//SYSIN  00  OUNNY 

// SY  5PRIN T  00  SYSOUT*A 

//DELETE  00  DSN*HaHCl.NPI2.CI080.P04.FT40»DISP«(0lD.CELETE.0ELETE> 
// SY5UT2  DO  DSN »HQMCl.HP I2.C1080.P04 . FT40#GISP«(NEM.CATLG)« 

//  0CB*(L  RECL*6Q»BLK  5IZE*400»R£CFM*F BA). UNIT'S YSOA. 

//  SPACE*(TRK.( 40.4d.RLSC) 

//  ST  suit  00  • 

•••••••••••••••••••••A*  INSERT  DATA  CAROS  HERE  •****••••••••••*••* 


/• 

// 


Table  G-2  illustrates  a  deck  for  running  "SETUP,”  and  table  G-3 
shows  one  for  running  "GOAL." 

Tables  G-l  and  G-2  contain  maximum  sets  of  delete  cards.  Each 
delete  card  is  used  only  when  the  particular  file  already  exists  on 
disk.  If  the  delete  card  is  not  used  and  the  file  does  exist,  the 
program  will  not  update  the  file.  The  listing  at  the  head  of  the  output 
will  indicate  that  the  file  was  not  cataloged.  It  is  therefore 
important  to  include  a  delete  card  if  a  file  is  to  be  updated.  "SETUP” 
will  not  run  if  instructed  to  delete  a  nonexistent  file;  therefore  it  is 
also  important  to  omit  unneeded  delete  cards. 


TABLE  G-2 


A  DECK  FOR  RUNNING  "SETUP" 


/•TAPE*1 

/ / II 957DK2  JOB  (601R.NNPA.600)>*SETUP*>TIME*(1Q.) 

//STE001  EXEC  F0RTGCLG.PARM.LKE0*>XR£F.LET.LIST.SI2E*C600K.120K>*. 

//  REGION. LKEO*bOOK. REGION. GO*bOOK 

//FOR  T. SY  SL IN  00  SPACE* (1024. ( 5*0. 100 ).RL SE > 

INSERI  program  oeck  here 

/• 

//LKEO.SYSLMOO  00  0CB*(R£Cf M*U  A  .LRECLM024.BLKSI  ZE*1 02  4  ) 
//LKEO.STSUTl  00  SPACE*! 102 4. ( S00 . 100 »» RL SE ) 

//OELEf E  00  OSN*HOMCl.NPI2.ClOaO.P04.FTtl.DISP«(OLD.DELETE.DELCTE> 
//DELETE  DO  0SN*H8MC1.MP 12. C 1060. P04. FT1 2 . 01 SP*( OLD. OELETE. DELETE » 
//DELETE  00  0SN=H0HC 1 .MP 1 2 .C 1084. POA .FT 13 .0 1 SP*(OLD. DELE TF. DELETE T 
/ /DELE TE  00  OS N*H8 MC l .MP 1 2.C1080.P04 .FT 21 * 01 SP* COLO. DELE TE . DELETE) 
//DELETE  DO  0SN=H0MC1. MP 12. C1080. POA. FT22  >OISP*(OLD. DELETE. OELETE) 
//DELETE  00  0SN=H8NC l .MP 12. C 1080. POA .FT2J.DI SP*(OLD»DELE TE.DELETE » 
//DELETE  00  OSN *H0MC l.MP I2.C 1080. POA .FT *5 .01 SP* (OLD. DELETE. OELETE ) 
//DELETE  DD  0SN*HQMC1. MP 12.C1080.P04. FT4 2 . 01 SP*(OLD. DELE TE. OELETE ) 
/ /GO .F  T  50F 001  00  OSN*HOMC1.MPI 3 .C tOSO.POb . A1 4058. 

//  DISP*(QLD.K££P).LA8£L*( . . . I N ) »0C8 *EROPT* ACC 

//G0.FT25F 001  00  OSN= HOMCt. PPI2.C1 080.P04.FT25.0ISP*( OLD .KEEP > 

//GD.FT24F001  DO  0SN*H8MC1. MP I2.C1080.P04.FT 24»0ISP»< OLO .KEEP » 

//GO .FT40F001  DD  DSN*H0MC l.MP 1 2 .C1080.P04 .FT40 .0  ISP* (OLD .KEEP > 

/ /G0.FT45  F 001  00  DSN*H0MC1. MPI2. C1080. P04.FT45.DISP*! HER .C ATLG > . 

//  SPACE*! TRK. (1.1). RLSE). 

//  0C8*( LRECL  *2  »RECFN*FB  A .8LKSI Z£*40  ) »UNI T *S TSDA 

//G0.FT47F001  00  OSN* HQMCi. MPI2 .C1080.P04 .FT47.DISP*( NEM. C ATLG ) . 

//  SPAC£*C  TRK .(  1  .  1  ). RLSE  ) . 

//  DCS* (LRECL*2.R£CFM*FB  A.BLKS12E*40  ).UNIT*SYSOA 

//G0.FT1 IF 001  00  OSN*HQMC1.MPI2.C1080.P04.FT11.0ISP*( NEW.C ATLG J . 

//  SPACE*! TPK.C  40.40 )»RLSE  )  , 

//  OCB*(LRECL*200»RECFM*F8A.8LKSI2E*400).LNl T*STSOA 
//GO.FT12FO01  00  OSN*NOMC 1 . MPI 2. Cl 080. P04.FT 1 2.D1SP* C MEN »C ATLG) . 

//  SPACE*(TRK. (40.40). RLSE). 

//  0C8*( LRECL*200.NECFM*FB A.BLKS I 2E* 400 1 . UNI T*STSOA 

//GO  .FT1 IF  001  00  DSN*H0MCl.HP12.C1080.P04.FTl3.0ISP*(NEM.CATLG>. 

//  SPACE*(TRK»(40»40)»RLSE)» 

//  OCB*(LRECL*200.R£CFN*FBA.8LKSI2E*400>.UNIT*SYSDA 
//G0.FT21FO01  OD  0SM*H0 MC 1 . MP 1 2 .C 108 0 .P04 .F TZ I .0 ISP* ( NEN .C ATLG ) . 

//  SPAC£*(TRK,(40.40).RLS£). 

//  OCB*( LRECL*200.RECFM*F8 A. BL KS I2E*400).UNIT*STSDA 
/ /GO .FT22F 00 1  DO  0SN*H8MC1. MPI 2 -C 1 08 0 . PC 4 . F T22, 0 1 SP*C NCR .C ATLG > . 

//  SPACE*(TRK. (40.40). RLSE). 

//  QCB*(LRECL*200.?£CFM*FB4.BLKSIZE*400>.UNIT*SYSDA 

//GU.FT2 IF 001  00  0SN*H8MC  1 . MPI 2 .C 1080. P04 .FT 2 3.0 1 SP* ( MEW .C A TL G ) i 

//  SPACE  * ( TRK. ( 40.40 ) .RLSE ) . 

//  OCB*(LRECL*200.RECFH*F8A,3LKSI2E*400>.UNIY*SYSOA 
//GO. F T80F001  00  • 

..............  INSERT  CARDS  FOR  FILE  •CHOICE"  HERE  *••.•••••  •'••• 

/• 

// 
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TABLE  G-3 


A  DECK  FOR  RUNNING  "GOAL” 


/•TAP£«0 

//II 95/01(2  JOB  t401R*HHP A .500 )»• GOALS'  *  TINE* ( l » ) 

//STEPOt  EXEC  FORTGCLG»PARH*NAR»REGI0N.GO«5O0K 

••••••••••••••••••  INSERT  PROGRAM  DECK  HERE  ••**•*•*••*••*•••• 


/• 

//GO.FTOSFOOl  00  • 

•••••••••••••ft  INSERT  CANOS  FOR  FILE  "INPUT"  HEPE 


/• 

//G0.FT01F001  00  • 

••••••*••••••  insert  CAROS  FOR  FILE  "OFGOAL"  HERE 


/• 

//GQ.FT4SF00I 
//G0.FT4/F001 
//GO.FTIIFOOl 
//G0*f  Tt  2F041 
//GO.FTlJFOOt 
//G0.FT21F001 
//GO.FT22FOOI 
//C0.FT23F00I 
//G0.FT2SF001 


00  0SN>HONCU*PI2.Ci08Q.P04.FT45»0ISPa<OLD»KEEP) 
00  OSNaHQNCl. NPI2.C 1080. P04.FT4/»DISP* COLD »KEEP> 
00  0SNaH0MCl»NPI2»C1080»P04aFTll.DISP*C  OLD* KEEP) 
00  OSN*HQNC1.NPI2.C!080.P04.FT12»DISP*(OLD»KEEP> 
00  0SNaH0MCl.NPl2.O080.P04.FT 13.0  ISP* (OLD .KEEP) 
DO  OSN*HGNCl.NPI2.C1080.P04.FT21.0ISPa(OLD.KEEP> 
DO  OSNaHONCUPPI2.Ct080.P04.FT22.0ISP*<  OLD. KEEP) 
00  OSNaHOHCl .  NPI 2  .C 1 08  0.  P04 .F T2 3.0 1 SP«  COLD  » KEEP  I 
00  OSN*HO MCI. NPI 2. C 1080. P04.FT25.DISP* COLD. KEEP) 
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APPENDIX  H 

GOAL  CALCULATIONS  WITHOUT  CONSIDERING 
OCCUPATIONAL  FIELD 


appendix  h 


GOAL  CALCULATIONS  WITHOUT  CONSIDERING 
OCCUPATIONAL  FIELD 


This  appendix  presents  calculations  for  future  goals  that  do  not 
distinguish  between  occupational  fields.  The  procedure  is  almost  the 
same  as  the  one  given.  The  programs  for  this  case  are  called  "SET2"  and 
"G0AL2,"  and  are  given  in  tables  H-l  and  H-2.  Card  file  "INPUT”  should 
have  the  card  for  selecting  the  amount  of  output  removed,  and  the  number 
of  files  is  reduced.  Tables  H-l  and  H-2  give  complete  decks,  including 
job  control  cards.  Note  that  the  names  of  Files  11  and  22  are  the  same 
in  the  shorter  calculation  as  in  the  original  calculation.  If  both 
calculations  are  to  be  done,  change  the  names  of  these  two  files  in 
"SET2"  and  "G0AL2. " 


TABLE  H-l 

RUN  DECK  FOR  "SET2" 


/>TAPE=1 

//I1957DK2  JOB  (601R.MMPA.500)  . 'SET2' »TIME-«(5»  > 

//STE001  EXEC  FORTGCLG. FARM. LKEDr'XREF. LET, LIST .SIZE* ( 600K . 120K > ' , 
//  RE GI ON. LK EB=600K* REGION. GO'tOOK 
//FORT.SYSUN  VV  SPACE- (  1021. ( 500/1  00) .ftLSE ) 

C 

C  THIS  PROGRAM  CALCULATES  2  MATRIXES  OF  SEPARATIONS  BY  COMMAND 
C  VERSUS  YEARS-QF-SERVICE  CATEGORY.  EACH  MATRIX  REPRESENTS  A 

C  FISCAL  YEAR  CONTRACT  END  (CURRENT  OR  FOLLOWING  YEAR)  AND  3 

C  YEARS-OF-SERVICE  CATEGORIES. 

C  COLUMN  1»  YEARS  ENLISTED  LE  5 

C  COLUMN  2-  YEARS  ENLISTED  GT  5  AND  LE  12 

C  COLUMN  3*  YEARS  ENLISTED  GT  12. 

C 

INTEGER  IFY(2»3»109) .NAMES ( 1 00. 20) » I COUNT  r  NFREO (1000 ) *  • 

1N0HAT2 ( 1000) .COMRUC (100.300) 

INTEGER  LEND. LBEGIN. LENGTH 
INTEGER  KK. X. NOBIG. IC0LS( 100) 

INTEGER  ADBYR. ADDMON. ADBDAY . ECCYR.ECCMON iECCDAY 

INTEGER  C0DE.NCARD.CH0ICE.TEMP2 

INTEGER  RUC  >  NUMCOM .NMC0M2 

INTEGER  YR.MON. DAT. END1 .END2. START 

INTEGER  FAR. ERROR. Y0S1 »Y0S2 

REAL  COMMCC(100»400>. TEMPI »N0NATC( 1000 ) 

REAL  PMCC.FMCC » NMCC 
DATA  BLANK/'  '/ 

DATA  ZERO/ ' 000 ' / 

ERROR-O 

FAP«0 

N0BTB»0 
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TABLE  H-l  (Cont’d) 

uodsum--o 

c 

C  ZERO  THE  SEPARATIONS  MATRIX 

C 

DO  7  I«1 .2 
DO  7  J-1.3 
DO  7  K=l»100 
IFY(I, J,K>«0 

7  CONTINUE 
C 

C  READ  IN  HCC-RUC  COMBINATIONS  THAT  DEFINE  THE  COMMANDS . 

C  DETERMINE  THE  NUMBER  OF  COMBINATIONS  FOR  EACH  COMMAND. 

C 

DO  6  I'l.lOO 
ICOLS  < I  >  =  1 
6  CONTINUE 

8  CONTINUE 

READ<40.45.END’12>  ICOUNT. TEMPI .TEMP2 
NUMCOM= I COUNT 
X«=ICOLS(  ICOUNT  > 

COMMCC (ICOUNT >X) = TEMPI 
COMRUC ( ICOUNT . X >  =  TEMP2 
ICOLS ( ICOUNT >’l+ICOLS< ICOUNT) 

GO  TO  8 

12  CONTINUE 
C 

C  READ  THE  RUN  MODE#  THE  GOAL  YEAR  START  DATE.  AND  THE 

C  CUTOFF  YEARS  FOR  THE  RETENTION  CATEGORIES 

C 

READ (80.10)  CHOICE 

READ  (80.666)  YR. MON. DAY 

READ  (80.70)  Y0S1.Y0S2 

Y0S1 ”YOS 1*360 

Y0S2* Y0S2*  360 

START=YRT360+M0N*30+DAY 

END1=START+3S? 

END2*START+719 
5  CONTINUE 
19  CONTINUE 

NMC0M2=NUMC0M 

C 

C  READ  COMMAND  NAMES  AND  PRINT  COMMAND  DEFINITIONS 

C 

NMC0M2=NUMC0M+1 
DO  18  J=1 .NMC0M2 

READ  (24.770)  ( NAMES ( J . I )  .  I «1 . 20 > 

18  CONTINUE 

DO  13  J= 1 » NUMCOM 
IC0LS( J)=ICOLS( J)-l 
KK*IC0LS ( J ) 

IF  (1C0LS(J) .EO.l)  GO  TO  14 

WRITE (6. 688)  J. (NAMES! J. I ) . I - 1 . 20 > . ICOLS ( J> . ( (COMMCC ( J. I > 
1C0MRUC ( J . I ) ) . 1-1 ,KK) 

GO  TO  16 

14  WRITE!  6. 689)  J .  <  NAMES  <  J .  I )  .  I  ^  1 , 20  > .  I  COLS  <  J  > .  (  (  COMHCC  ( J.  I  > 
1C0MRUC  (  J  .  I )  ’.  .  I-l.KK) 

16  WRITE ( 6 . 1 1  ) 

13  CONTINUE 
WRITE(6. 11 > 

C 

C  ZERO  VECTORS  OF  UNMATCHED  MCC-RUC  COMBINATIONS 
C 

DO  77  1-1.1000 
NOMATC ( 1 ) *0 . 

N0MAT2 ( 1 ) *0 
77  CANT  TNIIF 
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TABLE  H-l  (Cont'd) 
c 

C  CHOOSE  WHETHER  TO  STOP'  OR  TO  CALCULATE  THE  SEPARATIONS  MATRIXES 

C 

IF  (CHOICE .EQ.O)  GO  TO  777 
C 

C  READ  RECORDS  AND  PUT  SEPARATIONS  INTO  MATRIXES 

C 

NCARD-0 

DO  100  N«l* 200000 

RE AD (30. 60. END- 99?)  PMCC f RUC . FMCC f ADBYR » ADBMON » ADBDAY , ECCYR . ECCHON 
1 . ECCDAY 
C 

C  SELECT  PARENT  OR  FAP  MCC 

C 

NMCC  “F'MCC 

IF  ( (FMCC.NE .ZERO) .AND. (FMCC.NE .BLANK) )  NMCC'FMCC 
IF  ( (FMCC.NE. ZERO)  .AND. (FMCC.NE. BLANK) )  FAP»FAP41 
NCARD=NCARD  4  1 
C 

C  CALCULATE  LENGTH-OF-SERVICE  (RETENTION)  CATECORY 

C 

LEND* (ECCYRt 360  4  ECCM0N*30  4  ECCDAY  > 

LBEGIN=( ADBYRT360  4  ADBM0N*30  4  ADBDAY ) 

LENGTH*LEND-LBEGIN 
IF  (LENGTH. LE.Y0S1)  NYRS=1 

IF  (LENGTH. GT.Y0S1. AND. LENGTH. LE.Y0S2)  NYRS^-2 
IF  (LENGTH. GT.Y0S2)  NYRS=3 
C 

C  CALCULATE  FISCAL  YEAR  CATEGORY— NFY 

C 

IF  ((LEND. LT. START). OR. (LEND. GT.END2))  GO  TO  88B 
IF ( LEND. GE. START. AMD. LEND. LE.END1 )  NFY*1 
IF ( LEND. GT.END1 .AND. LEND. LE.END2)  NFY* 2 
GO  TO  556 
886  ERR0R=£RR0R4 1 
GO  TO  100 
C 

C  IDENTIFY  THE  COMMAND 

C 

556  DO  200  J*  1  *  NUMCOM 
KK* I  COLS ( J ) 

DO  200  K-l.KK 
C0DE*0 

IF ( ( RUC . EG . COMRUC ( J • K  > ) . OR • COMRUC ( J • K ) . EQ . 0 > CODE* 1 
I F ( ( NMCC . EO . COM MCC ( J  >  K ) > . AND . CODE . EO . 1 )  JMCC*  J 
IF ( ( NMCC .EQ.COMMCC(J»K>  > , AND . CODE . ED . 1 )  GO  TO  201 
IF  (J  .EO.  NUMCOM  .AND.  K  .EO.  ICOLS(J))  GO  TO  500 
200  CONTINUE 
C 

C  COLLECT  DATA  ON  UNMATCHED  MCC-RUC  COMBINATIONS . 

C 

500  CONTINUE 

DO  550  NO* l » 1000 
JMCC*NUMC0M4 1 
NMC0M2*JHCC 

IF ( ( NMCC . EQ . NOMATC ( NO ) ) . AND . (RUC .EQ. NOMAT2(NO ) ) ) 

1 NFREG ( NO  >  *NFREO  <  NO ) 4 1 

IF( (NMCC. EQ. NOMATC (NO) ) .AND. (RUC. EO . N0MAT2 ( NO ) ) )  GO  TO  201 
IF  (NOMATC (NO )  .NE.  0.)  GO  TO  550 
IF  (NOMATC(NO) .EQ.O.  )  NFRE0(N0)"1 
IF  ( NOMATC ( NO )  .EQ.  0.)  NOMATC ( NO) "NMCC 
IF  (NOMAT2(NO) .EQ.O)  N0MAT2 ( NO > "RUC 
IF  (NO  .GT.  NOBIG)  NOBIG"NO 
CO  TO  201 
550  CONTINUE 
C 

H-3 


TABLE  H-l  (Cont'd) 


C  INCREMENT  THE  SEPARATIONS  MATRIX 

C 

001  ITT (HEY >  N  )  RS i JMLC)"IFY  ( NF  Y iNYRSi JMCC>  +  1 
100  CONT I  HUE 
999  CONT INUE 
C 

C  WRITE  EACH  MATRIX  TO  DISK 

C 

C  IFY  (F.N.J)!  F -F I SCAL  TEAR  OF  SEFARAT I  DNS )  N’YEARS-0F-SERV1CE 

C  CATEGORY  1  J'COMMAND 

C 

DO  300  J  =  1  » NMC0H2 

URITE  (11.1000)  ( IFY( 1 . I , J> . 1-1 ,3> 

WRITE  (00.1000)  ( IFY<2. I . J) . 1-1 .3) 

300  CONTINUE 

UR1 TE ( 4 . 1 1  ) 

UR  I TE ( 4 . 555 )  FAR 
URITE (4. 1 1 ) 

WRITE(4»?01 )  ERROR 
UR  I  TE ( AS . 50 )  NMC0M2 
URITE (4. 11 ) 

C 

C  LIST  MCC-RUC  COMBINATIONS  FOUND  IN  HNS . BUT 

C  NOT  IN  THE  COMMAND  DEFINITIONS 

C 

IF  (NOBIG. EO.O)  GO  TO  B01 
UR  HE  (4.700) 

DO  800  1*1, NOBIG 

URITE( 4.750)  NOMAT C ( I >  »N0MAT2< I ) . NFREO ( I ) 

800  CONTINUE 

URITE( 4. 11  ) 

URITE(4,802) 
eOl  CONTINUE 

URI TE ( 4 . 1 1  ) 

URITE  (4.900)  NCARD 

10  FORMAT ( I  1 ) 

11  FORMAT ( IX) 

AS  FORMAT  (I  3 . 1 X . A3 , 1 X , 1 5 ) 

50  FORMAT ( 12) 

40  FORMAT  ( A3 . 1 5 . A3 . 3 1 2 . 3 1 2 ) 

70  FORMAT  (213) 

555  FORMAT( IX. IS. '  RECORDS  USED  THE  FAR  HCC.') 

644  FORMAT (312) 

6e8  FORMAT< IX.  'COMMAND  '  ,  1 3 . 2X , 20A1 » '  HAS  ',13.'  MCC-RUC  COMBINATIONS! 

1  '  , AX,3(  A3. ' -' , 15. IX) ,  100(/,38X,A( A3. '-'  ,  15,  IX)  >  > 

689  FOKMATOX. 'COMMAND  ' , 1 3 , 2X . 20 A 1 , '  HAS  ',13,'  MCC-RUC  COMBINATION! 

I ' .AX. 3 (A3, '-' , 15. IX) ,100</,S8X» A (A3, I3.1X) > ) 

692  F0RMAT(1X,50I3> 

700  F0RMAT(6X, 'MCC-RUC  COMBINATIONS  THAT  ARE  NOT  IN  COMMAND  DEFINITION 
l  LIST !',/,/, 1 OX, 'MCC' >3X, 'RUC' >7X. 'FREO' ,/) 

701  FORMAT ( 1 X  » 1 5 , '  BAD  RECORDS  WERE  FOUND.') 

750  FORMAT ( 10X.A3 , 2X, 15. TX. 15) 

770  FORMAT  (20A1) 

802  FORMAT (IX, 'COMBINATION(S)  ABOVE  IS(ARE)  INCLUDFD  IN  COMMAND  "MISC 
12"  '  ) 

900  FORMAT  (IX. 18,'  RECORDS  WERE  READ') 

1000  FORMAT  (114) 

777  CONTINUE 
END 

/* 

//LKED.SYSLMOD  DD  DC B= < RECFM  =  UA , LRECL *  1 024 , BLKS 1 2E - 1 021 ) 

//LKEP. SYSUTl  DD  SPACE* ( 1024. (500, 100)  ,RLSE) 

//DELETE  DrJ  DSN*HGMC1  . MR  I  2 . C 1 OBO . ROA . FT  1 1  ,  DI  SR’ (  OLD ,  DFLETE  ,  DELETE  ) 
//DELETE  DD  DSN*H0MC1 . MR I 2 . C 1 080 . RO A . FT22 > DI SR* < OLD , DELETE > DELETE > 
//DELETE  DD  DSN’HOMCl . MR  1 2 . C 1 080 . RO 1 . F T A5 , DI SF<-  ( OLD . DFLETE r DELETE > 
//GO.FTXOFAOt  DD  DSNrHOMCl .MRI3.C1 P90.R06.A1A039, 
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TABLE  H-l  (Cont’d) 


//  PISP=<OLD»KEEP>  •  L  APE  L  * (  .  »  »  IN)  r  PCP*EROF  T:--ACC 

//G0.FT25F001  PD  PSN*HOr(:i  .  MF' 12  .  C 1 080  .  P04  .  FT25 .  MSP- <  OLD » KEEP  ) 
//G0.FT24F001  PH  PSM*H0MC1  .  (1* 1 2  .  Cl  030 .  F  04  .  FT24  >  DI SP=  <  OLD » KEEP  > 

//GO  . FT40F001  DP  DSN'HOMC  1  .  HP  I 2 .  C 1 030  .  F'0<! .  FT40 »  £•  I SP"  (  OLD »  KEEP  ) 

//GO  .FT45F001  DD  PSN*HPNC1 . HPI 2 . C1O80 . P04 . FT 45 . D1SP" C NEU . CATLG > r 
//  SPACE  -  (  TRr\ »  ( 1 » 1 )  »RLSE  )  > 

//  DCP  = LF;ELl. *2 »  RECFH  =  F P A  t  PLUS I IE’ 40  >  * UNI T*S YSDA 

//OO  . FT  1 1 FOO 1  DD  PSN*HQMCl  . HP 12 . C 1 080 . P04 . FT  1 1 » D I SP’ < NEU . C ATLG >  . 

//  SPACE*  <  TRK  > ( 40 • 40  >  » F  LEE  )  » 

//  DCD*<LF:ECL*  120  »F:ECFh=FDA.  ELKS XZE*  1201  rUNIT-SYSDA 

//GO .FT22F001  DD  PSN’KQHCl . HP  1 2 . C1080 . F04 . FT22 » PI 3P*  ( NEW i C ATLC ) . 

//  SPACE* ( TRK, ( 40. 40) .RLSE ) . 

//  PCP*(LRECL*120.RECFM*FPA,PLKSIZE’120> ,UNIT*SYSPA 
//G0.FT80F001  DD  * 

Ultmtm  INSERT  CARDS  FOR  FILE  *  CHOICE*  HERE  **f ***«*»***(*»**«» 

/% 

// 

« 
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TABLE  H-2 


RUN  DECK  FOR  "G0AL2" 


/  *T  AF'E  *  0 

//I1957DK2  JOB  <601F:,HMF  A.500>  , 'GOAL?' >  T1ME  =  <  ,10) 

//STEP01  EXEC  FORTGCLG.P ARM-MAR, REGION. G0~500K 

•GOAL?  *  CALCULATES  F.'ETENT  I  ON  GOALS  r  GIVEN 
SEPARATION  BATA  FOR  EACH  OF  2  FISCAL  YEARS. 


REAL  F1.F2 

INTEGER  FY11 < 100,3) . FY22( 100*3) , CAT , ASK , ROU , TGOAL , N > IFIELD<50> 
COMMON  N AMES ( 100.20) , ICGOAL( 100) , I CTGOL ( 3 ) , I RESLT < 100 » 6  )  , 

1 IRES (6) ,SEF1 ( 100) ,SEP2( 100) ,SEP3(100) ,  N  r  OFGOAL ( 50  »  3 ) » I  COMM (20) > 
2UC3)  ,  M 

REAP  THE  NUMBER  OF  COMMANDS,  INCLUDING  MISC2  IF  REQUIRED 
RE  AD  <  45 , 87  )  M 

REAP  OCCUPATIONAL  FIELDS  AND  OCCUPATIONAL  FIELD  GOALS 

DO  27  J=l,50 
N=  J-l 

REAP  <25,86,END=666)  IF1ELIKJ) 

READ  (1,80  , ENP=666  )  <0FG0AL<J»I)»I-‘1»3> 

27  CONTINUE 
666  CONTINUE 

READ  SEPARATIONS  MATRIXES  AND  COMMAND  NAMES 
DO  17  1=1, M 

REAP  <11 ,82,END=444>  < F Y 1 1 ( I , J > , J= 1 , 3 ) 

REAP  <22*82, END  =  444)  <  F  Y22  <  I ,  J )  ,  J-=l ,  3  ) 

REAP  <24,e4 ) ( NAMES  < I , J ) , J  =  1 ,20) 

17  CONTINUE 

READ  UEIGHTS  FOR  THE  FIRST  FISCAL  YEAR 

2  CONTINUE 

READ  (8,97)  U 
URITE  (6,55) 

URITE<6>57)  U< 1 ) ,U<2) ,U<3) 

URITE  <  & , 1 08 ) 

IF < <U< 1 .0) .LE. 1 .0) .AND. <U<2> .LE. 1.0) . AND. <W<3) .LE.l .0) >G0  TO  4 
URITE  <6,56) 

GO  TO  2 
4  CONTINUE 
GO  TO  26 
444  URITE<6>777) 

GO  TO  93 

CHANGE  SOME  SEPARATIONS  DATA, IF  DESIRED 

26  CONTINUE 

REAP  (8,64)  ASK 


nno  non  non  non 


TABLE  H-2  (Cont’d) 

IF  (ASK. EG. 1)  GO  TO  S9 
GO  TO  50 
89  WRITE  (4,66) 

READ  (8,84)  ICOMH 
CALL  ROUS  ( I  COMM , ROW ) 

IF  (ROU.LE.h)  GO  TO  30 
WRITE  (6,68)  ICOMM 
GO  TO  93 
30  CONTINUE 

WRITE  (4,70) 

READ  (8,64)  CAT 

IF  ( (CAT .EO. 1 ) .OR. (CAT. ED. 2) .OR. (CAT. EC. 3) )  GO  TO  32 
WRITE  (6,91)  CAT 
GO  TO  93 
32  WRITE  (6,74) 

READ  (0,95)  F1.F2 

WRITE (6. 555) (( NAMES ( ROW , J > , J= 1 , 20 ) , C AT , FI , F2 ) 

IF  (CAT.NE.l)  GO  TO  38 
CALL  ADJUST  ( FY1 1 , ROW , FI , 1 ) 

CALL  ADJUST  ( F Y22 , ROW , F2 . 1 > 

GO  TO  42 

38  IF  (CAT.NE.2)  GO  TO  40 

CALL  ADJUST  ( F Y 1 1 , ROW , F 1 , 2 ) 

CALL  ADJUST  ( F Y22 , ROW , F 2 » 2 ) 

GO  TO  42 

40  IF  (CAT.NE.3)  GO  TO  32 

CALL  ADJUST  ( F Y 11 , ROW , F t , 3 ) 

CALL  ADJUST  ( F Y 22 , ROW , F2 , 3 ) 

42  CONTINUE 

WRITE(6.6A0> 

READ ( S , 64  )  ASK 
50  IF  (ASK. EG. 1)  GO  TO  26 

SUM  RETENTION  CATEGORY  GOALS 

DO  52  K*  1  » 3 
ICTGOL ( K ) =0 
DO  52  1*1  ,N 

ICTGOL <K)=ICTGOL(K)+OFGOAL(I,K> 

52  CONTINUE 

MAKE  UEIGHTED  SUMS  OF  SEPARATIONS  AND  CALCULATE  GOALS 

CALL  ADD  (FYH,FY22,SEP1,I> 

CALL  GOALS  (SEP1,1,4> 

CALL  ADD  (FYU  » F  Y22  ,  SEP2 , 2  > 

CALL  GOALS  (SEP2.2.5) 

CALL  ADD  (FYU,FY22,SEP3,3) 

CALL  GOALS  ( SEP3 , 3,6) 

PRINT  SUMMARY  SEPARATIONS  DATA 

WRITE  (6,108) 

WRITE  (6,104) 

WRITE  (6,92) 

WRITE  (6,94) 

WRITE  (6,96) 

WRITE  (6,98)  ( ( ( NAMES ( I»J)»J“1,20)?( IRESLT (I,J>»J"1,3)),1"*1,M) 
WRITE  (6,100) 

WRITE  (6,102)  <IRES(I)»I«1,3> 

PRINT  SUMMARY  GOALS  DATA 

WRITE  (6,108) 

WRITE  (6,88) 

WRITE  (6,92) 
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URITE  (4.94) 

URITE  (4,94) 

URITE  (it  98  >  <  (  (NAMES( 1 , J) > J^l ,20) » <  IRESLT  ( I  >  J)  i  J=4 . 4 >  » 1*1 ,H >  > 
URITE  (4,100) 

URITE  (4,102)  (IRES(I), 1*4,4) 

TG0AL*0 
DO  22  1=1,3 
TGOAL*TGOAL+ICTGOL( I ) 

22  CONTINUE 

URITE  (4,108) 

URITE  (4,222)  TGOAL 
URITE  (4,108) 

C 

C  PRINT  OVERALL  OCCUPATIONAL  FIELD  GOALS  (INPUT) 

C 

URITE  (4,108) 

URITE  (4,111) 

UNITE  (4,113) 

URITE  (4,114) 

URITF  (4,114) 

URITE  (4,118) 

URITE  (4,121)  (IFIELD(I),( OF GOAL (I,J>*J»1»3>»1=1»N) 

URITE  (4*122) 

URITE  (4,123)  ( ICTGOL(K) ,K*1 ,3) 

35  CONTINUE 

93  STOP 
C 

55  FORMAT  (lX.'UEIGHT  FACTORS  FOR  THE  FIRST  FISCAL  YEAR  ARE!') 
f.4  FORMAT  (  IX,  ' UARN ING ! U£ I GHTS  FOR  THE  2  YEARS  SHOULD  ADD  TO  1.') 

57  FORMAT (31X*F5<2,  '  ( F IRST-TERM > ' , / , 31 X , F5 . 2 , '  ( INTERMEDIATE )',/, 31X 
1 « F5 . 2 , '  (CAREER)') 

44  FORMAT  (ID 

44  FORMAT  (IX, 'NAME  THE  COMMAND  FOR  ADJUSTMENT') 

48  FORMAT ( IX, 'UARNING: INSERT  THE  EXACT  COMMAND  NAME.  YOU  USED  ',20A1> 
70  FORMAT  (IX, 'NAME  A  RETENTION  CATEGORY  FOR  ADJUSTMENT ( 1  ST  TERM' 1,IN 
1TER.=2,CAREER=3)  '  ) 

74  FORMAT  (IX, 'INSERT  A  MULTIPLICATIVE  FACTOR  FOR  EACH  FISCAL  YEAR.') 
80  FORMAT  (3F5.0) 

82  FORMAT  (314) 

84  FORMAT  (20A1) 

84  FORMAT  (12) 

87  FORMAT  (12) 

88  FORMAT  (35X,  'GOALS' ,/, 35X,  ' - ') 

91  FORMAT  (IX, ' UARNING 5 CATEGORY  MUST  BE  1,  2,  OR  3.  YOU  USED  DID 

92  FORMAT  (24X, 'FIRST  INTER-') 

94  FORMAT  ( 1 X , ' COMM ANDS  TERM  MEDIATE  CAREER') 

95  FORMAT  (2F4.3) 

96  FORMAT  (IX,  ' -  -  -  - '  ) 

97  FORMAT  (3F4.3) 

98  FORMAT  (IX, 20A 1,19, 110,19) 

100  FORMAT  (  IX,  ' - '  ) 

102  FORMAT  (3X, 'TOTALS  ',19,110,19) 

104  FORMAT (30X, 'UEIGHTED  SUM  OF ',/, 32X ,' SEPARATIONS ',/, 32X r ' - 


«-'  ) 

10e  FORMAT  (IX) 

111  FORMAT  (  19X, 'OVERALL  GOALS') 

113  FORMAT  (lX.'OCCUPA-  - '  ) 

114  FORMAT  (IX.'TIONAL  FIRST  INTER-  ') 

114  FORMAT  (IX, 'FIELDS  TERM  MEDIATE  CAREER') 

.  118  FORMAT  (IX,' -  -  -  - '  > 

121  FORMAT  (1X,I4,3X,3F10.0) 

122  FORMAT  (IX,  ' - '  > 

123  FORMAT  ( IX , ' TOT ALS ' , 31 1 0 ) 


222  FORMAT  (IX,'  TOTAL  GOAL  IS  *,I4) 

555  FORMAT  (1X,20A1,'  CATEGORY  ',11,'  FACTORS!  ',F4.3»F6.3) 
440  FORMAT  (IX, 'DO  YOU  UISH  TO  ADJUST  ANY  MORE  SEP AR AT I ONST ' ) 
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TABLE  H-2  (Cont’d) 

777  FORMAT  < IX . ' UARNI MG !  YOU  RAN  OUT  OF  DATA  TOO  SOON') 

END 

'ADD'  PRODUCES  A  WEIGHTED  SUM  OF  TWO  YEARS'  SEPARATION  DATA 

SUBROUTINE  ADD  < YR1 . YR2 . SEPPS »K ) 

INTEGER  YR1(100»3).YR2(100.3) 

REAL  SEPPS ( 100 ) 

COMMON  NAMES ( 100.20) » ICG0AL( 100) . ICTG0L<3) . IRESLT ( 100 . 6 ) » 

1 IRES  <  A ) .SEP1 ( 100) . SEP2( 100) .SEP3< 100) . N  >  OFGOAL (50.3) . IC0MM(20) . 
2U<  3  >  >  M 
REAL  RES ( 3  > 

RES(K)=0. 

DO  2  I  *  1 .  M 

SEPPS <  I  >=(W(K)*YR1 (I »K>>+( ( 1-U ( K ) >*YR2 < I .  K  ) ) 

RES(K)=RF.3(K)+SEPPS(  I  > 

2  CONTINUE 

IRES(K)=RES(K>+0.5 

END 


'GOALS'  CALCULATES  THE  COMMAND  GOALS. GIVEN  THE 
WEIGHTED  SUMS  OF  SEPARATIONS 

SUBROUTINE  GOALS  (SEPPS. K.L) 

COMMON  NAMES ( 100.20 ) >ICG0AL( 100) . ICTG0L(3>  » IRESLT ( 100.6) . 

1 1 RES  <  6)«SEP1(100)»SEP2(100)»SEP3(100).N>  OFGOAL ( 50. 3  > . I COMM ( 20 )  . 
2U<  3) >M 

REAL  COMGOL(IOO) . TOTSEP . SEPPS ( 1 00 >  rSUM.SUMM. RATIO. RGOAL 
INTEGER  Z.INT.LOC(IOO) 

SUM=0. 

SUMM=0  • 

T0TSEP*0. 

Z=0 

SUM  SEPARATIONS  FOR  RETENTION  CATEGORY  K 

DO  14  1*1. h 
TOTSEP*TOTSEP+SEPPS< I) 

IRESLT <I.K)*SEPPS( I >+0.5 
14  CONTINUE 

CONVERT  SEPARATIONS  TO  FRACTIONS  OF  RETENTION 
CATEGORY  SEPARATIONS 

DO  16  1*1. M 

IF  (TOTSEP. EO. 0. )  GO  TO  16 
SEPPS ( I >*SEPPS( I ) /TOTSEP 
16  CONTINUE 

SUM  FRACTIONS  OVER  COMMANDS 

DO  19  1*1. M 
SUM*SUM+SEPPS(I) 

19  CONTINUE 

CALCULATE  COMMAND  GOALS 

DO  24  1*1. M 

COMGOL ( I ) *SEPPS ( I ) * I CTGOL ( K ) 

24  CONTINUE 
36  RGOAL'O 

DO  34  1*1. M 

rrr,n«i  <T)*rnMRnt  (T>  +  o.*i 
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TABLE  H-2  (Cont'd) 

RGOAL=RGOAL+ICGOAL< I  ) 

34  CONTINUE 

COMPARE  CATEGORY  GOAL  TO  SUM  OF  COMMAND  GOALS  AND  ADJUST 

IF  (RGOAL.EG.O)  GO  TO  42 
RATIO’ICTGOLOO-'RGOAL 
IF  <RATIO.EO. 1 .0)  GO  TO  42 
IF  (Z.E0.1)  GO  TO  42 
DO  40  I  *  1 » M 

COMGOL < I >»C0MG0L< I )*RATI0 
40  CONTINUE 
2  =  1 

GO  TO  34 
42  CONTINUE 

INT*ICTGGL(K ) -RGOAL 
IF  (IMT.EQ.O)  GO  TO  48 
SIGN*1 

IF  (INT.LT.O)  SIGN--1 
IF  (INT.LT.O)  INT--INT 

FIND  LARGEST  COMMAND  GOALS  FOR  ADJUSTING  TO  MAKE 
SUM  OF  COMHAND  GOALS  EQUAL  CATEGORY  GOAL 

CALL  LARG  < INT i M . LOC . 1 CGOAL ) 

DO  44  J*1 t INT 
DO  44  MM-l.M 
Z*LOC( J) 

IF  (MH.EQ.Z)  I CGOAL  <  MM)«ICGOAL ( MM  >  +  SI GN 
IF  (MM.EO.Z)  GO  TO  46 
44  CONTINUE 
46  CONTINUE 
48  CONTINUE 

PUT  COMMAND  GOALS  IN  OUTPUT  MATRIX 

DO  50  I-l.M 
IRESLT(I.L)«ICGOAL<I) 

50  CONTINUE 

PUT  SUM  OF  COMMAND  GOALS  IN  OUTPUT  VECTOR 

IRES (L ) *0 
DO  52  I«1  »M 

1RES<L)«IRES(L)+IRESLT<I»L) 

52  CONTINUE 
RETURN 


END 


'LARG'  FINDS  THE  LOCATIONS  OF  THE  INT  LARGEST 
COMMAND  GOALS*  WHERE  INT  IS  THE  ROUNDOFF  DISCREPANCY 

SUBROUTINE  LARG  ( INT i M . IH1 r ARRAY > 

INTEGER  ARRAY ( 100) »  IHICIOO).  IH2<100> 

DO  2  I-V.INT 

FIRST  'DO'  LOOPS  FIND  AN  INITIAL  CANDIDATE  FOR  A  VECTOR 
OF  LOCATIONS  OF  THE  INT  LARGEST  COMMAND  GOALS 

2  IH1 ( I ) *  I 
4  DO  12  J*lfM 
DO  10  1*1 » INT 
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TABLE  H-2  (Cont'd) 


2= I H 1 <  I  ) 

IF  '  ARRAY.' 2)  .GT, ARRAY!  J)  )  GO  TO  10 
IF  (  ( ARRAY  i  Z  )  .  CO •  ARRAY  (  J  ) )  •  AMI' .  <  Z  •  ME .  J  )  >  GO  TO  10 
IF  !J.ECI.M>  GO  TO  B 
DO  6  K= 1 > INT 

IF  ( < IM1 <K> .EQ. J> . AMP. IK.NE.I) >  GO  TO  12 
6  CONTINUE 
0  IH1!I)=J 
GO  TO  12 
10  CONTINUE 
12  CONTINUE 
C 

C  HALE  A  COPY  OF  THE  INITIAL  CANDIDATE 

C 

DO  14  1  =  1.1  NT 
IH2!I>=IH1!I> 

14  CONTINUE 

DO  22  J=  1  *  M 
DO  20  1=1. INT 
Z= IH2 !  I  ) 


CHECK  FOR  INDEXES  THAT  GIVE  LARGER  GOALS.  BUT  THAT 
ARE  NOT  IN  THE  LATEST  CANDIDATE 

IF  !ARRAY!Z) .GT. ARRAY! J>>  GO  TO  20 
IF  ( (ARRAY(Z) .EO. ARRAY! J) ) .AND. !Z. HE. J) )  GO  TO  20 
IF  (J.EQ.M)  GO  TO  18 
DO  it  K*1 > INT 

IF  < !IH2!K> .EQ. J) .AND. IK.NE.I > >  GO  TO  22 
14  CONTINUE 
18  1H2  < I )  =  J 
03  TO  22 
20  CONTINUE 
22  CONTINUE 

CHECK  WHETHER  LATEST  CANDIDATE  IS  EQUAL  TO  THE 
PREVIOUS  CANDIDATE 


DO  24  1=1. INT 

IF  ( IH1 ( I ) .NE. IH2< I > >  GO  TO  26 
24  CONTINUE 
GO  TO  30 

START  WITH  THE  NEW  CANDIDATE 

26  DO  8?  I-l.INT 
IH1 ( I )  =  IH2  < I ) 

87  CONTINUE 

REPEAT  UNTIL  NO  CHANGE  OCCURS 


GO  TO  4 
30  CONTINUE 
RETURN 
END 


'ROWS'  IDENTIFIES  THE  ROW  IN  WHICH  DATA  FOR  A  GIVEN 
COMMAND  ARE  LOCATED 

SUBROUTINE  ROWS  IX.ROW) 

C 

COMMON  NAMES! 100.20) . ICGOAL 1 1 00 > . ICTGOL ( 3 ) . IRESLT ( 1 00. 6 ) . 
URES!6).SEP1 (100).SEP2( 1 00 > >SEP3 ! 100 > . M . OFGOAL ! 50 . 3 > . ICOHM ! 20 ) . 
2U! 3) >h 

INTEGER  X ( 20 ) • ROW 
Rf1U  =  M*1 
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HO  A  1*1  *M 

1*0  d  j*i.ro 

IF  (X(J)  .NE.NAHCS(liJ>>  60  TO  A 
IF  (J.EQ.20)  ROU  =  I 
2  CONTINUE 
A  CONTINUE 
RETURN 
CMP 
C 

C  ' AH JUST '  hULT I  FLIES  A  ROU  IN  A  SEPARATIONS  HAT A 

C  MATRIX  BY  A  GIVEN  FACTOR 

C 

SUBROUTINE  AH JUST  ( FY I N . X . FACTOR . K ) 

C 

COMMON  NAMES ( 1 00 » 20 > . I CGOAL < 1 00 > . I CT GOL C 3 > . I RESET < 100 « 6 ) r 
1IRESU ) .SERI (100) .S£R2( 100) .SEF3< 100) i N , OFGOAL ( 50 , 3 ) >IC0MM<20> » 

2W<  3  >  » H 
INTEGER  ?■ 

INTEGER  FYINU00.3) 

REAL  FACTOR. K 

FYIN(X.K)=FYIN<X.K)*FACTOR 

RETURN 

ENH 

/% 

//DO . F T 08F001  HP  * 

***************  INSERT  CAROS  FOR  FILE  ‘INPUT*  HERE  ********************* 
/* 

//GO .FT01F001  HP  * 

******************  INSERT  CAROS  FOR  FILE  'OFGOAL*  HERE  ***************** 
/* 

//DO . FT  A  5F 00 1  HO  PSH*H0MC1 . HR I 2 . C 1 080 . P04 . FT AS . PI SPM OLH . KEEP > 

//GO . FT  1 1F001  PH  HSN  =  HQMC1.HPI2.C1080.P0A.FT11>DISP*(0LP>KEEP> 
//G0.FT22F001  HP  DSN=HGMC 1 . MPI 2 . Cl  080 . POA . FT22 r D I  SR* ( OLH . KEEP > 
//G0.FT24F001  HP  HSH=HOMC 1 . Mp I 2 . C 1 080 . P04 . F T2A . D I SP= ( OLD . KEEP ) 

//GO . FT25F00 1  HP  HSN  =  HQMC 1 . Mp 1 2 . C 1 080 . P04 . FT25 r HISP* ( OLH . KEEP > 

/* 

// 

* 
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